- Accounts
- Contracts
- mint + transferIn
- getCash
- getTotalSupply
- call transferOut inside borrow entry point
- getCash after transferOut call
- Try sweepMutez
CXTZ tests
Accounts
| Seed | Address | Public_key | Public_key_hash | Secret_key |
| 'Alice' | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi | edpkuvNy6TuQ2z8o9wnoaTtTXkzQk7nhegCHfxBc4ecsd4qG71KYNG | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi | edskRijgcXx8gzqkq7SCBbrb6aDZQMmP6dznCQWgU1Jr4qPfJT1yFq5A39ja9G4wahS8uWtBurZy14Hy7GZkQh7WnopJTKtCQG |
| 'admin' | tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 | edpkthtmpNV7DzPgvsU5ktVkfYbARpb2nzDbncU8mdbMeXGRhGTjN7 | tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 | edskRjPeZkNsmeJ8aAzs5vyXVhP7DVRvG6nM1ReNfjzkR3h6ykbf71mPxQyE5HU9FHrV3EdrY4GVCSBWhU44v6bnhQGrKM9Cs8 |
Contracts
Contract
New contract: KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1
Balance: 0.000000
Storage:
| Borrow_allowed | Mint_allowed | Redeem_allowed | Repay_borrow_allowed |
| True | True | True | True |
Code:
import smartpy as spclass Contract(sp.Contract):
def __init__(self):
self.init_type(sp.TRecord(borrow_allowed = sp.TBool, mint_allowed = sp.TBool, redeem_allowed = sp.TBool, repay_borrow_allowed = sp.TBool).layout((("borrow_allowed", "mint_allowed"), ("redeem_allowed", "repay_borrow_allowed"))))
self.init(borrow_allowed = True,
mint_allowed = True,
redeem_allowed = True,
repay_borrow_allowed = True)
mint_allowed = True,
redeem_allowed = True,
repay_borrow_allowed = True)
@sp.entry_point
def acceptGovernance(self, params):
def acceptGovernance(self, params):
sp.set_type(params, sp.TAddress)
@sp.entry_point
def borrowAllowed(self, params):
def borrowAllowed(self, params):
sp.set_type(params, sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))))
sp.verify(self.data.borrow_allowed)
sp.verify(self.data.borrow_allowed)
@sp.entry_point
def disableMarket(self, params):
def disableMarket(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def enterMarkets(self, params):
def enterMarkets(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def exitMarket(self, params):
def exitMarket(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def getHypoAccountLiquidity(self, params):
def getHypoAccountLiquidity(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def mintAllowed(self, params):
def mintAllowed(self, params):
sp.set_type(params, sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))))
sp.verify(self.data.mint_allowed)
sp.verify(self.data.mint_allowed)
@sp.entry_point
def redeemAllowed(self, params):
def redeemAllowed(self, params):
sp.set_type(params, sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))))
sp.verify(self.data.redeem_allowed)
sp.verify(self.data.redeem_allowed)
@sp.entry_point
def repayBorrowAllowed(self, params):
def repayBorrowAllowed(self, params):
sp.set_type(params, sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))))
sp.verify(self.data.repay_borrow_allowed)
sp.verify(self.data.repay_borrow_allowed)
@sp.entry_point
def setBorrowAllowed(self, params):
def setBorrowAllowed(self, params):
self.data.borrow_allowed = params
@sp.entry_point
def setBorrowPaused(self, params):
def setBorrowPaused(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def setCloseFactor(self, params):
def setCloseFactor(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def setCollateralFactor(self, params):
def setCollateralFactor(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def setLiquidationIncentive(self, params):
def setLiquidationIncentive(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def setLiquidityPeriodRelevance(self, params):
def setLiquidityPeriodRelevance(self, params):
sp.set_type(params, sp.TNat)
@sp.entry_point
def setMarketBorrowCap(self, params):
def setMarketBorrowCap(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def setMintAllowed(self, params):
def setMintAllowed(self, params):
self.data.mint_allowed = params
@sp.entry_point
def setMintPaused(self, params):
def setMintPaused(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def setPendingGovernance(self, params):
def setPendingGovernance(self, params):
sp.set_type(params, sp.TAddress)
@sp.entry_point
def setPriceOracle(self, params):
def setPriceOracle(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def setPricePeriodRelevance(self, params):
def setPricePeriodRelevance(self, params):
sp.set_type(params, sp.TNat)
@sp.entry_point
def setRedeemAllowed(self, params):
def setRedeemAllowed(self, params):
self.data.redeem_allowed = params
@sp.entry_point
def setRepayBorrowAllowed(self, params):
def setRepayBorrowAllowed(self, params):
self.data.repay_borrow_allowed = params
@sp.entry_point
def setTransferPaused(self, params):
def setTransferPaused(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def supportMarket(self, params):
def supportMarket(self, params):
sp.set_type(params, sp.TUnit)
@sp.entry_point
def transferAllowed(self, params):
def transferAllowed(self, params):
sp.set_type(params, sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))))
@sp.entry_point
def updateAccountLiquidity(self, params):
def updateAccountLiquidity(self, params):
sp.set_type(params, sp.TAddress)
@sp.entry_point
def updateAssetPrice(self, params):
def updateAssetPrice(self, params):
sp.set_type(params, sp.TAddress)
Storage:
{borrow_allowed: sp.TBool;
mint_allowed: sp.TBool;
redeem_allowed: sp.TBool;
repay_borrow_allowed: sp.TBool;
}.layout((("borrow_allowed", "mint_allowed"), ("redeem_allowed", "repay_borrow_allowed")))
Entry points:
| acceptGovernance sp.TAddress| borrowAllowed
{
borrowAmount: sp.TNat;
borrower: sp.TAddress;
cToken: sp.TAddress;
}.layout(("cToken", ("borrower", "borrowAmount")))
| disableMarket
| enterMarkets
| exitMarket
| getHypoAccountLiquidity
| mintAllowed
{
cToken: sp.TAddress;
mintAmount: sp.TNat;
minter: sp.TAddress;
}.layout(("cToken", ("minter", "mintAmount")))
| redeemAllowed
{
cToken: sp.TAddress;
redeemAmount: sp.TNat;
redeemer: sp.TAddress;
}.layout(("cToken", ("redeemer", "redeemAmount")))
| repayBorrowAllowed
{
borrower: sp.TAddress;
cToken: sp.TAddress;
payer: sp.TAddress;
repayAmount: sp.TNat;
}.layout(("cToken", ("payer", ("borrower", "repayAmount"))))
| setBorrowAllowed sp.TBool
| setBorrowPaused
| setCloseFactor
| setCollateralFactor
| setLiquidationIncentive
| setLiquidityPeriodRelevance sp.TNat
| setMarketBorrowCap
| setMintAllowed sp.TBool
| setMintPaused
| setPendingGovernance sp.TAddress
| setPriceOracle
| setPricePeriodRelevance sp.TNat
| setRedeemAllowed sp.TBool
| setRepayBorrowAllowed sp.TBool
| setTransferPaused
| supportMarket
| transferAllowed
{
cToken: sp.TAddress;
dst: sp.TAddress;
src: sp.TAddress;
transferTokens: sp.TNat;
}.layout((("cToken", "src"), ("dst", "transferTokens")))
| updateAccountLiquidity sp.TAddress
| updateAssetPrice sp.TAddress
Generated Michelson:
Sizes
| Storage: | 14 Bytes | |
| Code: | 1962 Bytes |
Initial Storage
(Pair (Pair True True) (Pair True True))
Michelson Code
parameter (or (or (or (or (address %acceptGovernance) (or (pair %borrowAllowed (address %cToken) (pair (address %borrower) (nat %borrowAmount))) (unit %disableMarket))) (or (or (unit %enterMarkets) (unit %exitMarket)) (or (unit %getHypoAccountLiquidity) (pair %mintAllowed (address %cToken) (pair (address %minter) (nat %mintAmount)))))) (or (or (pair %redeemAllowed (address %cToken) (pair (address %redeemer) (nat %redeemAmount))) (or (pair %repayBorrowAllowed (address %cToken) (pair (address %payer) (pair (address %borrower) (nat %repayAmount)))) (bool %setBorrowAllowed))) (or (or (unit %setBorrowPaused) (unit %setCloseFactor)) (or (unit %setCollateralFactor) (unit %setLiquidationIncentive))))) (or (or (or (nat %setLiquidityPeriodRelevance) (or (unit %setMarketBorrowCap) (bool %setMintAllowed))) (or (or (unit %setMintPaused) (address %setPendingGovernance)) (or (unit %setPriceOracle) (nat %setPricePeriodRelevance)))) (or (or (bool %setRedeemAllowed) (or (bool %setRepayBorrowAllowed) (unit %setTransferPaused))) (or (or (unit %supportMarket) (pair %transferAllowed (pair (address %cToken) (address %src)) (pair (address %dst) (nat %transferTokens)))) (or (address %updateAccountLiquidity) (address %updateAssetPrice))))));
storage (pair (pair (bool %borrow_allowed) (bool %mint_allowed)) (pair (bool %redeem_allowed) (bool %repay_borrow_allowed)));
storage (pair (pair (bool %borrow_allowed) (bool %mint_allowed)) (pair (bool %redeem_allowed) (bool %repay_borrow_allowed)));
code
{
CAST (pair (or (or (or (or address (or (pair address (pair address nat)) unit)) (or (or unit unit) (or unit (pair address (pair address nat))))) (or (or (pair address (pair address nat)) (or (pair address (pair address (pair address nat))) bool)) (or (or unit unit) (or unit unit)))) (or (or (or nat (or unit bool)) (or (or unit address) (or unit nat))) (or (or bool (or bool unit)) (or (or unit (pair (pair address address) (pair address nat))) (or address address))))) (pair (pair bool bool) (pair bool bool))); # pair (or (or (or (or address (or (pair address (pair address nat)) unit)) (or (or unit unit) (or unit (pair address (pair address nat))))) (or (or (pair address (pair address nat)) (or (pair address (pair address (pair address nat))) bool)) (or (or unit unit) (or unit unit)))) (or (or (or nat (or unit bool)) (or (or unit address) (or unit nat))) (or (or bool (or bool unit)) (or (or unit (pair (pair address address) (pair address nat))) (or address address))))) (pair (pair bool bool) (pair bool bool))
UNPAIR; # or (or (or (or address (or (pair address (pair address nat)) unit)) (or (or unit unit) (or unit (pair address (pair address nat))))) (or (or (pair address (pair address nat)) (or (pair address (pair address (pair address nat))) bool)) (or (or unit unit) (or unit unit)))) (or (or (or nat (or unit bool)) (or (or unit address) (or unit nat))) (or (or bool (or bool unit)) (or (or unit (pair (pair address address) (pair address nat))) (or address address)))) : pair (pair bool bool) (pair bool bool)
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == acceptGovernance == # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == borrowAllowed ==
# sp.verify(self.data.borrow_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
CAR; # pair bool bool : pair (pair bool bool) (pair bool bool)
CAR; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.borrow_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == disableMarket == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == enterMarkets == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == exitMarket == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == getHypoAccountLiquidity == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == mintAllowed ==
# sp.verify(self.data.mint_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
CAR; # pair bool bool : pair (pair bool bool) (pair bool bool)
CDR; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.mint_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == redeemAllowed ==
# sp.verify(self.data.redeem_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
GET 3; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.redeem_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == repayBorrowAllowed ==
# sp.verify(self.data.repay_borrow_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
GET 4; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.repay_borrow_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}
{
SWAP; # pair (pair bool bool) (pair bool bool) : bool
# == setBorrowAllowed ==
# self.data.borrow_allowed = params # pair (pair bool bool) (pair bool bool) : bool
UNPAIR; # pair bool bool : pair bool bool : bool
CDR; # bool : pair bool bool : bool
DIG 2; # bool : bool : pair bool bool
PAIR; # pair bool bool : pair bool bool
PAIR; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setBorrowPaused == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setCloseFactor == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setCollateralFactor == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setLiquidationIncentive == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setLiquidityPeriodRelevance == # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setMarketBorrowCap == # pair (pair bool bool) (pair bool bool)
}
{
SWAP; # pair (pair bool bool) (pair bool bool) : bool
# == setMintAllowed ==
# self.data.mint_allowed = params # pair (pair bool bool) (pair bool bool) : bool
UNPAIR; # pair bool bool : pair bool bool : bool
CAR; # bool : pair bool bool : bool
DIG 2; # bool : bool : pair bool bool
SWAP; # bool : bool : pair bool bool
PAIR; # pair bool bool : pair bool bool
PAIR; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setMintPaused == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setPendingGovernance == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setPriceOracle == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setPricePeriodRelevance == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
# == setRedeemAllowed ==
# self.data.redeem_allowed = params # bool : pair (pair bool bool) (pair bool bool)
UPDATE 3; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
# == setRepayBorrowAllowed ==
# self.data.repay_borrow_allowed = params # bool : pair (pair bool bool) (pair bool bool)
UPDATE 4; # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setTransferPaused == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == supportMarket == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == transferAllowed == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == updateAccountLiquidity == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == updateAssetPrice == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
NIL operation; # list operation : pair (pair bool bool) (pair bool bool)
PAIR; # pair (list operation) (pair (pair bool bool) (pair bool bool))
};
{
CAST (pair (or (or (or (or address (or (pair address (pair address nat)) unit)) (or (or unit unit) (or unit (pair address (pair address nat))))) (or (or (pair address (pair address nat)) (or (pair address (pair address (pair address nat))) bool)) (or (or unit unit) (or unit unit)))) (or (or (or nat (or unit bool)) (or (or unit address) (or unit nat))) (or (or bool (or bool unit)) (or (or unit (pair (pair address address) (pair address nat))) (or address address))))) (pair (pair bool bool) (pair bool bool))); # pair (or (or (or (or address (or (pair address (pair address nat)) unit)) (or (or unit unit) (or unit (pair address (pair address nat))))) (or (or (pair address (pair address nat)) (or (pair address (pair address (pair address nat))) bool)) (or (or unit unit) (or unit unit)))) (or (or (or nat (or unit bool)) (or (or unit address) (or unit nat))) (or (or bool (or bool unit)) (or (or unit (pair (pair address address) (pair address nat))) (or address address))))) (pair (pair bool bool) (pair bool bool))
UNPAIR; # or (or (or (or address (or (pair address (pair address nat)) unit)) (or (or unit unit) (or unit (pair address (pair address nat))))) (or (or (pair address (pair address nat)) (or (pair address (pair address (pair address nat))) bool)) (or (or unit unit) (or unit unit)))) (or (or (or nat (or unit bool)) (or (or unit address) (or unit nat))) (or (or bool (or bool unit)) (or (or unit (pair (pair address address) (pair address nat))) (or address address)))) : pair (pair bool bool) (pair bool bool)
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == acceptGovernance == # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == borrowAllowed ==
# sp.verify(self.data.borrow_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
CAR; # pair bool bool : pair (pair bool bool) (pair bool bool)
CAR; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.borrow_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == disableMarket == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == enterMarkets == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == exitMarket == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == getHypoAccountLiquidity == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == mintAllowed ==
# sp.verify(self.data.mint_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
CAR; # pair bool bool : pair (pair bool bool) (pair bool bool)
CDR; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.mint_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == redeemAllowed ==
# sp.verify(self.data.redeem_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
GET 3; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.redeem_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == repayBorrowAllowed ==
# sp.verify(self.data.repay_borrow_allowed) # pair (pair bool bool) (pair bool bool)
DUP; # pair (pair bool bool) (pair bool bool) : pair (pair bool bool) (pair bool bool)
GET 4; # bool : pair (pair bool bool) (pair bool bool)
IF
{}
{
PUSH string "WrongCondition: self.data.repay_borrow_allowed"; # string : pair (pair bool bool) (pair bool bool)
FAILWITH; # FAILED
}; # pair (pair bool bool) (pair bool bool)
}
{
SWAP; # pair (pair bool bool) (pair bool bool) : bool
# == setBorrowAllowed ==
# self.data.borrow_allowed = params # pair (pair bool bool) (pair bool bool) : bool
UNPAIR; # pair bool bool : pair bool bool : bool
CDR; # bool : pair bool bool : bool
DIG 2; # bool : bool : pair bool bool
PAIR; # pair bool bool : pair bool bool
PAIR; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setBorrowPaused == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setCloseFactor == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setCollateralFactor == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setLiquidationIncentive == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setLiquidityPeriodRelevance == # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setMarketBorrowCap == # pair (pair bool bool) (pair bool bool)
}
{
SWAP; # pair (pair bool bool) (pair bool bool) : bool
# == setMintAllowed ==
# self.data.mint_allowed = params # pair (pair bool bool) (pair bool bool) : bool
UNPAIR; # pair bool bool : pair bool bool : bool
CAR; # bool : pair bool bool : bool
DIG 2; # bool : bool : pair bool bool
SWAP; # bool : bool : pair bool bool
PAIR; # pair bool bool : pair bool bool
PAIR; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setMintPaused == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setPendingGovernance == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setPriceOracle == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setPricePeriodRelevance == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
# == setRedeemAllowed ==
# self.data.redeem_allowed = params # bool : pair (pair bool bool) (pair bool bool)
UPDATE 3; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
# == setRepayBorrowAllowed ==
# self.data.repay_borrow_allowed = params # bool : pair (pair bool bool) (pair bool bool)
UPDATE 4; # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == setTransferPaused == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == supportMarket == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == transferAllowed == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}
{
IF_LEFT
{
DROP; # pair (pair bool bool) (pair bool bool)
# == updateAccountLiquidity == # pair (pair bool bool) (pair bool bool)
}
{
DROP; # pair (pair bool bool) (pair bool bool)
# == updateAssetPrice == # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
}; # pair (pair bool bool) (pair bool bool)
NIL operation; # list operation : pair (pair bool bool) (pair bool bool)
PAIR; # pair (list operation) (pair (pair bool bool) (pair bool bool))
};
Initial Storage
{ "prim": "Pair", "args": [ { "prim": "Pair", "args": [ { "prim": "True" }, { "prim": "True" } ] }, { "prim": "Pair", "args": [ { "prim": "True" }, { "prim": "True" } ] } ] }
JSON Representation
[
{
"prim": "storage",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "bool", "annots": [ "%borrow_allowed" ] }, { "prim": "bool", "annots": [ "%mint_allowed" ] } ] },
{ "prim": "pair", "args": [ { "prim": "bool", "annots": [ "%redeem_allowed" ] }, { "prim": "bool", "annots": [ "%repay_borrow_allowed" ] } ] }
]
}
]
},
{
"prim": "parameter",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "address", "annots": [ "%acceptGovernance" ] },
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%borrowAmount" ] } ] }
],
"annots": [ "%borrowAllowed" ]
},
{ "prim": "unit", "annots": [ "%disableMarket" ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%enterMarkets" ] }, { "prim": "unit", "annots": [ "%exitMarket" ] } ] },
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%getHypoAccountLiquidity" ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%minter" ] }, { "prim": "nat", "annots": [ "%mintAmount" ] } ] }
],
"annots": [ "%mintAllowed" ]
}
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%redeemer" ] }, { "prim": "nat", "annots": [ "%redeemAmount" ] } ] }
],
"annots": [ "%redeemAllowed" ]
},
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%payer" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%repayAmount" ] } ] }
]
}
],
"annots": [ "%repayBorrowAllowed" ]
},
{ "prim": "bool", "annots": [ "%setBorrowAllowed" ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setBorrowPaused" ] }, { "prim": "unit", "annots": [ "%setCloseFactor" ] } ] },
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setCollateralFactor" ] }, { "prim": "unit", "annots": [ "%setLiquidationIncentive" ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%setLiquidityPeriodRelevance" ] },
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setMarketBorrowCap" ] }, { "prim": "bool", "annots": [ "%setMintAllowed" ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setMintPaused" ] }, { "prim": "address", "annots": [ "%setPendingGovernance" ] } ] },
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setPriceOracle" ] }, { "prim": "nat", "annots": [ "%setPricePeriodRelevance" ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "bool", "annots": [ "%setRedeemAllowed" ] },
{ "prim": "or", "args": [ { "prim": "bool", "annots": [ "%setRepayBorrowAllowed" ] }, { "prim": "unit", "annots": [ "%setTransferPaused" ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%supportMarket" ] },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "address", "annots": [ "%src" ] } ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%dst" ] }, { "prim": "nat", "annots": [ "%transferTokens" ] } ] }
],
"annots": [ "%transferAllowed" ]
}
]
},
{ "prim": "or", "args": [ { "prim": "address", "annots": [ "%updateAccountLiquidity" ] }, { "prim": "address", "annots": [ "%updateAssetPrice" ] } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "address" },
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{ "prim": "unit" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] },
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "bool" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] },
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "unit" }, { "prim": "bool" } ] } ] },
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "address" } ] },
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "nat" } ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "bool" }, { "prim": "or", "args": [ { "prim": "bool" }, { "prim": "unit" } ] } ] },
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] }
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [ { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "bool" } ] }, { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "bool" } ] } ]
}
]
}
]
},
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.borrow_allowed" } ] },
{ "prim": "FAILWITH" }
]
]
}
],
[ { "prim": "DROP" } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.mint_allowed" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.redeem_allowed" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.repay_borrow_allowed" } ] },
{ "prim": "FAILWITH" }
]
]
}
],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "UPDATE", "args": [ { "int": "3" } ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "UPDATE", "args": [ { "int": "4" } ] } ], [ { "prim": "DROP" } ] ] } ]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ]
]
}
]
]
}
]
]
}
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
}
]
{
"prim": "storage",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "bool", "annots": [ "%borrow_allowed" ] }, { "prim": "bool", "annots": [ "%mint_allowed" ] } ] },
{ "prim": "pair", "args": [ { "prim": "bool", "annots": [ "%redeem_allowed" ] }, { "prim": "bool", "annots": [ "%repay_borrow_allowed" ] } ] }
]
}
]
},
{
"prim": "parameter",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "address", "annots": [ "%acceptGovernance" ] },
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%borrowAmount" ] } ] }
],
"annots": [ "%borrowAllowed" ]
},
{ "prim": "unit", "annots": [ "%disableMarket" ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%enterMarkets" ] }, { "prim": "unit", "annots": [ "%exitMarket" ] } ] },
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%getHypoAccountLiquidity" ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%minter" ] }, { "prim": "nat", "annots": [ "%mintAmount" ] } ] }
],
"annots": [ "%mintAllowed" ]
}
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%redeemer" ] }, { "prim": "nat", "annots": [ "%redeemAmount" ] } ] }
],
"annots": [ "%redeemAllowed" ]
},
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%cToken" ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%payer" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%repayAmount" ] } ] }
]
}
],
"annots": [ "%repayBorrowAllowed" ]
},
{ "prim": "bool", "annots": [ "%setBorrowAllowed" ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setBorrowPaused" ] }, { "prim": "unit", "annots": [ "%setCloseFactor" ] } ] },
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setCollateralFactor" ] }, { "prim": "unit", "annots": [ "%setLiquidationIncentive" ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%setLiquidityPeriodRelevance" ] },
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setMarketBorrowCap" ] }, { "prim": "bool", "annots": [ "%setMintAllowed" ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setMintPaused" ] }, { "prim": "address", "annots": [ "%setPendingGovernance" ] } ] },
{ "prim": "or", "args": [ { "prim": "unit", "annots": [ "%setPriceOracle" ] }, { "prim": "nat", "annots": [ "%setPricePeriodRelevance" ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "bool", "annots": [ "%setRedeemAllowed" ] },
{ "prim": "or", "args": [ { "prim": "bool", "annots": [ "%setRepayBorrowAllowed" ] }, { "prim": "unit", "annots": [ "%setTransferPaused" ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%supportMarket" ] },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%cToken" ] }, { "prim": "address", "annots": [ "%src" ] } ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%dst" ] }, { "prim": "nat", "annots": [ "%transferTokens" ] } ] }
],
"annots": [ "%transferAllowed" ]
}
]
},
{ "prim": "or", "args": [ { "prim": "address", "annots": [ "%updateAccountLiquidity" ] }, { "prim": "address", "annots": [ "%updateAssetPrice" ] } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "address" },
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{ "prim": "unit" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] },
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] },
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "bool" }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] },
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "unit" }, { "prim": "bool" } ] } ] },
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "address" } ] },
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "nat" } ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "bool" }, { "prim": "or", "args": [ { "prim": "bool" }, { "prim": "unit" } ] } ] },
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] }
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [ { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "bool" } ] }, { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "bool" } ] } ]
}
]
}
]
},
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.borrow_allowed" } ] },
{ "prim": "FAILWITH" }
]
]
}
],
[ { "prim": "DROP" } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.mint_allowed" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.redeem_allowed" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "WrongCondition: self.data.repay_borrow_allowed" } ] },
{ "prim": "FAILWITH" }
]
]
}
],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" } ],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "UPDATE", "args": [ { "int": "3" } ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "UPDATE", "args": [ { "int": "4" } ] } ], [ { "prim": "DROP" } ] ] } ]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] } ]
]
}
]
]
}
]
]
}
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
}
]
Contract
New contract: KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF
Balance: 0.000000
Storage:
| BorrowRate | SupplyRate |
Code:
import smartpy as spclass Contract(sp.Contract):
def __init__(self):
self.init_type(sp.TRecord(borrowRate = sp.TNat, supplyRate = sp.TNat).layout(("borrowRate", "supplyRate")))
self.init(borrowRate = 840000000000,
supplyRate = 180000000000)
supplyRate = 180000000000)
@sp.entry_point
def getBorrowRate(self, params):
def getBorrowRate(self, params):
sp.set_type(params, sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))))
sp.transfer(self.data.borrowRate, sp.tez(0), params.cb)
sp.transfer(self.data.borrowRate, sp.tez(0), params.cb)
@sp.entry_point
def getSupplyRate(self, params):
def getSupplyRate(self, params):
sp.set_type(params, sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))))
sp.transfer(self.data.supplyRate, sp.tez(0), params.cb)
sp.transfer(self.data.supplyRate, sp.tez(0), params.cb)
@sp.entry_point
def setBorrowRate(self, params):
def setBorrowRate(self, params):
sp.set_type(params, sp.TNat)
self.data.borrowRate = params
self.data.borrowRate = params
@sp.entry_point
def setSupplyRate(self, params):
def setSupplyRate(self, params):
sp.set_type(params, sp.TNat)
self.data.supplyRate = params
self.data.supplyRate = params
Storage:
{borrowRate: sp.TNat;
supplyRate: sp.TNat;
}.layout(("borrowRate", "supplyRate"))
Entry points:
| getBorrowRate{
borrows: sp.TNat;
cash: sp.TNat;
cb: sp.TContract(sp.TNat);
reserves: sp.TNat;
}.layout((("borrows", "cash"), ("cb", "reserves")))
| getSupplyRate
{
borrows: sp.TNat;
cash: sp.TNat;
cb: sp.TContract(sp.TNat);
reserves: sp.TNat;
}.layout((("borrows", "cash"), ("cb", "reserves")))
| setBorrowRate sp.TNat
| setSupplyRate sp.TNat
Generated Michelson:
Sizes
| Storage: | 16 Bytes | |
| Code: | 404 Bytes |
Initial Storage
(Pair 840000000000 180000000000)
Michelson Code
parameter (or (or (pair %getBorrowRate (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves))) (pair %getSupplyRate (pair (nat %borrows) (nat %cash)) (pair (contract %cb nat) (nat %reserves)))) (or (nat %setBorrowRate) (nat %setSupplyRate)));
storage (pair (nat %borrowRate) (nat %supplyRate));
storage (pair (nat %borrowRate) (nat %supplyRate));
code
{
CAST (pair (or (or (pair (pair nat nat) (pair (contract nat) nat)) (pair (pair nat nat) (pair (contract nat) nat))) (or nat nat)) (pair nat nat)); # pair (or (or (pair (pair nat nat) (pair (contract nat) nat)) (pair (pair nat nat) (pair (contract nat) nat))) (or nat nat)) (pair nat nat)
UNPAIR; # or (or (pair (pair nat nat) (pair (contract nat) nat)) (pair (pair nat nat) (pair (contract nat) nat))) (or nat nat) : pair nat nat
IF_LEFT
{
IF_LEFT
{
# == getBorrowRate ==
# sp.transfer(self.data.borrowRate, sp.tez(0), params.cb) # pair (pair nat nat) (pair (contract nat) nat) : pair nat nat
GET 3; # contract nat : pair nat nat
NIL operation; # list operation : contract nat : pair nat nat
SWAP; # contract nat : list operation : pair nat nat
PUSH mutez 0; # mutez : contract nat : list operation : pair nat nat
DUP 4; # pair nat nat : mutez : contract nat : list operation : pair nat nat
CAR; # nat : mutez : contract nat : list operation : pair nat nat
TRANSFER_TOKENS; # operation : list operation : pair nat nat
CONS; # list operation : pair nat nat
}
{
# == getSupplyRate ==
# sp.transfer(self.data.supplyRate, sp.tez(0), params.cb) # pair (pair nat nat) (pair (contract nat) nat) : pair nat nat
GET 3; # contract nat : pair nat nat
NIL operation; # list operation : contract nat : pair nat nat
SWAP; # contract nat : list operation : pair nat nat
PUSH mutez 0; # mutez : contract nat : list operation : pair nat nat
DUP 4; # pair nat nat : mutez : contract nat : list operation : pair nat nat
CDR; # nat : mutez : contract nat : list operation : pair nat nat
TRANSFER_TOKENS; # operation : list operation : pair nat nat
CONS; # list operation : pair nat nat
}; # list operation : pair nat nat
}
{
IF_LEFT
{
# == setBorrowRate ==
# self.data.borrowRate = params # nat : pair nat nat
UPDATE 1; # pair nat nat
}
{
# == setSupplyRate ==
# self.data.supplyRate = params # nat : pair nat nat
UPDATE 2; # pair nat nat
}; # pair nat nat
NIL operation; # list operation : pair nat nat
}; # list operation : pair nat nat
PAIR; # pair (list operation) (pair nat nat)
};
{
CAST (pair (or (or (pair (pair nat nat) (pair (contract nat) nat)) (pair (pair nat nat) (pair (contract nat) nat))) (or nat nat)) (pair nat nat)); # pair (or (or (pair (pair nat nat) (pair (contract nat) nat)) (pair (pair nat nat) (pair (contract nat) nat))) (or nat nat)) (pair nat nat)
UNPAIR; # or (or (pair (pair nat nat) (pair (contract nat) nat)) (pair (pair nat nat) (pair (contract nat) nat))) (or nat nat) : pair nat nat
IF_LEFT
{
IF_LEFT
{
# == getBorrowRate ==
# sp.transfer(self.data.borrowRate, sp.tez(0), params.cb) # pair (pair nat nat) (pair (contract nat) nat) : pair nat nat
GET 3; # contract nat : pair nat nat
NIL operation; # list operation : contract nat : pair nat nat
SWAP; # contract nat : list operation : pair nat nat
PUSH mutez 0; # mutez : contract nat : list operation : pair nat nat
DUP 4; # pair nat nat : mutez : contract nat : list operation : pair nat nat
CAR; # nat : mutez : contract nat : list operation : pair nat nat
TRANSFER_TOKENS; # operation : list operation : pair nat nat
CONS; # list operation : pair nat nat
}
{
# == getSupplyRate ==
# sp.transfer(self.data.supplyRate, sp.tez(0), params.cb) # pair (pair nat nat) (pair (contract nat) nat) : pair nat nat
GET 3; # contract nat : pair nat nat
NIL operation; # list operation : contract nat : pair nat nat
SWAP; # contract nat : list operation : pair nat nat
PUSH mutez 0; # mutez : contract nat : list operation : pair nat nat
DUP 4; # pair nat nat : mutez : contract nat : list operation : pair nat nat
CDR; # nat : mutez : contract nat : list operation : pair nat nat
TRANSFER_TOKENS; # operation : list operation : pair nat nat
CONS; # list operation : pair nat nat
}; # list operation : pair nat nat
}
{
IF_LEFT
{
# == setBorrowRate ==
# self.data.borrowRate = params # nat : pair nat nat
UPDATE 1; # pair nat nat
}
{
# == setSupplyRate ==
# self.data.supplyRate = params # nat : pair nat nat
UPDATE 2; # pair nat nat
}; # pair nat nat
NIL operation; # list operation : pair nat nat
}; # list operation : pair nat nat
PAIR; # pair (list operation) (pair nat nat)
};
Initial Storage
{ "prim": "Pair", "args": [ { "int": "840000000000" }, { "int": "180000000000" } ] }
JSON Representation
[
{ "prim": "storage", "args": [ { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrowRate" ] }, { "prim": "nat", "annots": [ "%supplyRate" ] } ] } ] },
{
"prim": "parameter",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrows" ] }, { "prim": "nat", "annots": [ "%cash" ] } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ], "annots": [ "%cb" ] }, { "prim": "nat", "annots": [ "%reserves" ] } ] }
],
"annots": [ "%getBorrowRate" ]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrows" ] }, { "prim": "nat", "annots": [ "%cash" ] } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ], "annots": [ "%cb" ] }, { "prim": "nat", "annots": [ "%reserves" ] } ] }
],
"annots": [ "%getSupplyRate" ]
}
]
},
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%setBorrowRate" ] }, { "prim": "nat", "annots": [ "%setSupplyRate" ] } ] }
]
}
]
},
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
},
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CDR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{ "prim": "IF_LEFT", "args": [ [ { "prim": "UPDATE", "args": [ { "int": "1" } ] } ], [ { "prim": "UPDATE", "args": [ { "int": "2" } ] } ] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] }
]
]
},
{ "prim": "PAIR" }
]
]
}
]
{ "prim": "storage", "args": [ { "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrowRate" ] }, { "prim": "nat", "annots": [ "%supplyRate" ] } ] } ] },
{
"prim": "parameter",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrows" ] }, { "prim": "nat", "annots": [ "%cash" ] } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ], "annots": [ "%cb" ] }, { "prim": "nat", "annots": [ "%reserves" ] } ] }
],
"annots": [ "%getBorrowRate" ]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrows" ] }, { "prim": "nat", "annots": [ "%cash" ] } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ], "annots": [ "%cb" ] }, { "prim": "nat", "annots": [ "%reserves" ] } ] }
],
"annots": [ "%getSupplyRate" ]
}
]
},
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%setBorrowRate" ] }, { "prim": "nat", "annots": [ "%setSupplyRate" ] } ] }
]
}
]
},
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
},
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
},
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CDR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{ "prim": "IF_LEFT", "args": [ [ { "prim": "UPDATE", "args": [ { "int": "1" } ] } ], [ { "prim": "UPDATE", "args": [ { "int": "2" } ] } ] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] }
]
]
},
{ "prim": "PAIR" }
]
]
}
]
Contract
New contract: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
Balance: 0.000000
Storage:
| Last |
Code:
import smartpy as spclass Contract(sp.Contract):
def __init__(self):
self.init_type(sp.TRecord(last = sp.TOption(sp.TNat)).layout("last"))
self.init(last = sp.none)
@sp.entry_point
def target(self, params):
def target(self, params):
self.data.last = sp.some(params)
@sp.entry_point
def targetNat(self, params):
def targetNat(self, params):
sp.set_type(params, sp.TNat)
self.data.last = sp.some(params)
self.data.last = sp.some(params)
Storage:
{last: sp.TOption(sp.TNat);
}.layout("last")
Entry points:
| target sp.TNat| targetNat sp.TNat
Generated Michelson:
Sizes
| Storage: | 2 Bytes | |
| Code: | 89 Bytes |
Initial Storage
None
Michelson Code
parameter (or (nat %target) (nat %targetNat));
storage (option nat);
storage (option nat);
code
{
CAST (pair (or nat nat) (option nat)); # pair (or nat nat) (option nat)
CAR; # or nat nat
IF_LEFT
{
# == target ==
# self.data.last = sp.some(params) # nat
SOME; # option nat
}
{
# == targetNat ==
# self.data.last = sp.some(params) # nat
SOME; # option nat
}; # option nat
NIL operation; # list operation : option nat
PAIR; # pair (list operation) (option nat)
};
{
CAST (pair (or nat nat) (option nat)); # pair (or nat nat) (option nat)
CAR; # or nat nat
IF_LEFT
{
# == target ==
# self.data.last = sp.some(params) # nat
SOME; # option nat
}
{
# == targetNat ==
# self.data.last = sp.some(params) # nat
SOME; # option nat
}; # option nat
NIL operation; # list operation : option nat
PAIR; # pair (list operation) (option nat)
};
Initial Storage
{ "prim": "None" }
JSON Representation
[
{ "prim": "storage", "args": [ { "prim": "option", "args": [ { "prim": "nat" } ] } ] },
{ "prim": "parameter", "args": [ { "prim": "or", "args": [ { "prim": "nat", "annots": [ "%target" ] }, { "prim": "nat", "annots": [ "%targetNat" ] } ] } ] },
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [ { "prim": "pair", "args": [ { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "option", "args": [ { "prim": "nat" } ] } ] } ]
},
{ "prim": "CAR" },
{ "prim": "IF_LEFT", "args": [ [ { "prim": "SOME" } ], [ { "prim": "SOME" } ] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
}
]
{ "prim": "storage", "args": [ { "prim": "option", "args": [ { "prim": "nat" } ] } ] },
{ "prim": "parameter", "args": [ { "prim": "or", "args": [ { "prim": "nat", "annots": [ "%target" ] }, { "prim": "nat", "annots": [ "%targetNat" ] } ] } ] },
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [ { "prim": "pair", "args": [ { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }, { "prim": "option", "args": [ { "prim": "nat" } ] } ] } ]
},
{ "prim": "CAR" },
{ "prim": "IF_LEFT", "args": [ [ { "prim": "SOME" } ], [ { "prim": "SOME" } ] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
}
]
Contract
New contract: KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
Balance: 0.000000
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | ExpScale | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TotalBorrows | TotalReserves | TotalSupply | ||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | False |
Code:
import smartpy as spclass Contract(sp.Contract):
def __init__(self):
self.init_type(sp.TRecord(accrualBlockNumber = sp.TNat, accrualIntPeriodRelevance = sp.TNat, activeOperations = sp.TSet(sp.TNat), administrator = sp.TAddress, balances = sp.TBigMap(sp.TAddress, sp.TRecord(accountBorrows = sp.TRecord(interestIndex = sp.TNat, principal = sp.TNat).layout(("interestIndex", "principal")), approvals = sp.TMap(sp.TAddress, sp.TNat), balance = sp.TNat).layout(("accountBorrows", ("approvals", "balance")))), borrowIndex = sp.TNat, borrowRateMaxMantissa = sp.TNat, borrowRatePerBlock = sp.TNat, comptroller = sp.TAddress, expScale = sp.TNat, halfExpScale = sp.TNat, initialExchangeRateMantissa = sp.TNat, interestRateModel = sp.TAddress, isAccrualInterestValid = sp.TBool, pendingAdministrator = sp.TOption(sp.TAddress), reserveFactorMantissa = sp.TNat, reserveFactorMaxMantissa = sp.TNat, supplyRatePerBlock = sp.TNat, totalBorrows = sp.TNat, totalReserves = sp.TNat, totalSupply = sp.TNat).layout((((("accrualBlockNumber", "accrualIntPeriodRelevance"), ("activeOperations", ("administrator", "balances"))), (("borrowIndex", "borrowRateMaxMantissa"), ("borrowRatePerBlock", ("comptroller", "expScale")))), ((("halfExpScale", "initialExchangeRateMantissa"), ("interestRateModel", ("isAccrualInterestValid", "pendingAdministrator"))), (("reserveFactorMantissa", ("reserveFactorMaxMantissa", "supplyRatePerBlock")), ("totalBorrows", ("totalReserves", "totalSupply")))))))
self.init(accrualBlockNumber = 0,
accrualIntPeriodRelevance = 5,
activeOperations = sp.set([]),
administrator = sp.address('tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5'),
balances = {},
borrowIndex = 1000000000000000000,
borrowRateMaxMantissa = 5000000000000,
borrowRatePerBlock = 0,
comptroller = sp.address('KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1'),
expScale = 1000000000000000000,
halfExpScale = 500000000000000000,
initialExchangeRateMantissa = 1000000000000000000,
interestRateModel = sp.address('KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF'),
isAccrualInterestValid = False,
pendingAdministrator = sp.none,
reserveFactorMantissa = 0,
reserveFactorMaxMantissa = 1000000000000000000,
supplyRatePerBlock = 0,
totalBorrows = 0,
totalReserves = 0,
totalSupply = 0)
accrualIntPeriodRelevance = 5,
activeOperations = sp.set([]),
administrator = sp.address('tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5'),
balances = {},
borrowIndex = 1000000000000000000,
borrowRateMaxMantissa = 5000000000000,
borrowRatePerBlock = 0,
comptroller = sp.address('KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1'),
expScale = 1000000000000000000,
halfExpScale = 500000000000000000,
initialExchangeRateMantissa = 1000000000000000000,
interestRateModel = sp.address('KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF'),
isAccrualInterestValid = False,
pendingAdministrator = sp.none,
reserveFactorMantissa = 0,
reserveFactorMaxMantissa = 1000000000000000000,
supplyRatePerBlock = 0,
totalBorrows = 0,
totalReserves = 0,
totalSupply = 0)
@sp.entry_point
def acceptGovernance(self, params):
def acceptGovernance(self, params):
sp.set_type(params, sp.TUnit)
sp.verify(sp.sender == self.data.pendingAdministrator.open_some(message = 'CT_NOT_SET_PENDING_ADMIN'), 'CT_NOT_PENDING_ADMIN')
self.data.administrator = self.data.pendingAdministrator.open_some()
self.data.pendingAdministrator = sp.none
sp.verify(sp.sender == self.data.pendingAdministrator.open_some(message = 'CT_NOT_SET_PENDING_ADMIN'), 'CT_NOT_PENDING_ADMIN')
self.data.administrator = self.data.pendingAdministrator.open_some()
self.data.pendingAdministrator = sp.none
@sp.entry_point
def accrueInterest(self, params):
def accrueInterest(self, params):
sp.set_type(params, sp.TUnit)
sp.if self.data.accrualBlockNumber == 0:
self.data.accrualBlockNumber = sp.level
sp.if sp.level != self.data.accrualBlockNumber:
self.data.activeOperations.add(8)
sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), cb = sp.self_entry_point('doAccrueInterest'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some())
self.data.isAccrualInterestValid = True
sp.if self.data.accrualBlockNumber == 0:
self.data.accrualBlockNumber = sp.level
sp.if sp.level != self.data.accrualBlockNumber:
self.data.activeOperations.add(8)
sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), cb = sp.self_entry_point('doAccrueInterest'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some())
self.data.isAccrualInterestValid = True
@sp.entry_point
def addReserves(self, params):
def addReserves(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(11)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entry_point('addReservesInternal'))
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(11)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entry_point('addReservesInternal'))
@sp.entry_point
def addReservesInternal(self, params):
def addReservesInternal(self, params):
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(11), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(11)
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == params.addAmount, 'CT_INVALID_MUTEZ')
self.data.totalReserves += params.addAmount
self.data.isAccrualInterestValid = False
sp.verify(self.data.activeOperations.contains(11), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(11)
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == params.addAmount, 'CT_INVALID_MUTEZ')
self.data.totalReserves += params.addAmount
self.data.isAccrualInterestValid = False
@sp.entry_point
def approve(self, params):
def approve(self, params):
sp.set_type(params, sp.TRecord(spender = sp.TAddress, value = sp.TNat).layout(("spender", "value")))
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.verify((self.data.balances[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), 'CT_UNSAFE_ALLOWANCE_CHANGE')
self.data.balances[sp.sender].approvals[params.spender] = params.value
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.verify((self.data.balances[sp.sender].approvals.get(params.spender, default_value = 0) == 0) | (params.value == 0), 'CT_UNSAFE_ALLOWANCE_CHANGE')
self.data.balances[sp.sender].approvals[params.spender] = params.value
@sp.entry_point
def borrow(self, params):
def borrow(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, borrower = sp.sender, borrowAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entry_point='borrowAllowed').open_some())
sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= params, 'CT_INSUFFICIENT_CASH')
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.if False:
sp.transfer(sp.unit, sp.mul(params, sp.mutez(1)), sp.contract(sp.TUnit, sp.sender, entry_point='receive').open_some(message = 'bad contract destination'))
sp.else:
sp.send(sp.sender, sp.mul(params, sp.mutez(1)))
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
self.data.balances[sp.sender].accountBorrows.principal = borrowBalance.value + params
self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex
self.data.totalBorrows += borrowBalance.value + params
self.data.isAccrualInterestValid = False
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, borrower = sp.sender, borrowAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entry_point='borrowAllowed').open_some())
sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= params, 'CT_INSUFFICIENT_CASH')
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.if False:
sp.transfer(sp.unit, sp.mul(params, sp.mutez(1)), sp.contract(sp.TUnit, sp.sender, entry_point='receive').open_some(message = 'bad contract destination'))
sp.else:
sp.send(sp.sender, sp.mul(params, sp.mutez(1)))
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
self.data.balances[sp.sender].accountBorrows.principal = borrowBalance.value + params
self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex
self.data.totalBorrows += borrowBalance.value + params
self.data.isAccrualInterestValid = False
@sp.entry_point
def borrowBalanceStored(self, params):
def borrowBalanceStored(self, params):
sp.set_type(sp.fst(params), sp.TAddress)
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
__s1 = sp.local("__s1", borrowBalance.value)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s1.value, sp.tez(0), sp.snd(params))
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
__s1 = sp.local("__s1", borrowBalance.value)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s1.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def doAccrueInterest(self, params):
def doAccrueInterest(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender == self.data.interestRateModel, 'CT_SENDER_NOT_IRM')
sp.verify(self.data.activeOperations.contains(8), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(8)
sp.verify(params <= self.data.borrowRateMaxMantissa, 'CT_INVALID_BORROW_RATE')
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat)
sp.set_type(params * sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat)
compute_CToken_545 = sp.local("compute_CToken_545", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber)))
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalBorrows, sp.TNat)
sp.set_type(compute_CToken_545.value.mantissa * self.data.totalBorrows, sp.TNat)
sp.set_type(sp.record(mantissa = compute_CToken_545.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_546 = sp.local("compute_CToken_546", (compute_CToken_545.value.mantissa * self.data.totalBorrows) // self.data.expScale)
self.data.totalBorrows = compute_CToken_546.value + self.data.totalBorrows
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_546.value, sp.TNat)
sp.set_type(self.data.totalReserves, sp.TNat)
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_546.value, sp.TNat)
sp.set_type(self.data.reserveFactorMantissa * compute_CToken_546.value, sp.TNat)
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_546.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_546.value) // self.data.expScale) + self.data.totalReserves
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.borrowIndex, sp.TNat)
sp.set_type(self.data.borrowIndex, sp.TNat)
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.borrowIndex, sp.TNat)
sp.set_type(compute_CToken_545.value.mantissa * self.data.borrowIndex, sp.TNat)
sp.set_type(sp.record(mantissa = compute_CToken_545.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
self.data.borrowIndex = ((compute_CToken_545.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex
self.data.accrualBlockNumber = sp.level
sp.verify(sp.sender == self.data.interestRateModel, 'CT_SENDER_NOT_IRM')
sp.verify(self.data.activeOperations.contains(8), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(8)
sp.verify(params <= self.data.borrowRateMaxMantissa, 'CT_INVALID_BORROW_RATE')
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat)
sp.set_type(params * sp.as_nat(sp.level - self.data.accrualBlockNumber), sp.TNat)
compute_CToken_545 = sp.local("compute_CToken_545", sp.record(mantissa = params * sp.as_nat(sp.level - self.data.accrualBlockNumber)))
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalBorrows, sp.TNat)
sp.set_type(compute_CToken_545.value.mantissa * self.data.totalBorrows, sp.TNat)
sp.set_type(sp.record(mantissa = compute_CToken_545.value.mantissa * self.data.totalBorrows), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_546 = sp.local("compute_CToken_546", (compute_CToken_545.value.mantissa * self.data.totalBorrows) // self.data.expScale)
self.data.totalBorrows = compute_CToken_546.value + self.data.totalBorrows
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_546.value, sp.TNat)
sp.set_type(self.data.totalReserves, sp.TNat)
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_546.value, sp.TNat)
sp.set_type(self.data.reserveFactorMantissa * compute_CToken_546.value, sp.TNat)
sp.set_type(sp.record(mantissa = self.data.reserveFactorMantissa * compute_CToken_546.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
self.data.totalReserves = ((self.data.reserveFactorMantissa * compute_CToken_546.value) // self.data.expScale) + self.data.totalReserves
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.borrowIndex, sp.TNat)
sp.set_type(self.data.borrowIndex, sp.TNat)
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(compute_CToken_545.value, sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.borrowIndex, sp.TNat)
sp.set_type(compute_CToken_545.value.mantissa * self.data.borrowIndex, sp.TNat)
sp.set_type(sp.record(mantissa = compute_CToken_545.value.mantissa * self.data.borrowIndex), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
self.data.borrowIndex = ((compute_CToken_545.value.mantissa * self.data.borrowIndex) // self.data.expScale) + self.data.borrowIndex
self.data.accrualBlockNumber = sp.level
@sp.entry_point
def exchangeRateStored(self, params):
def exchangeRateStored(self, params):
sp.set_type(sp.fst(params), sp.TUnit)
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
__s2 = sp.local("__s2", excRate.value)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s2.value, sp.tez(0), sp.snd(params))
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
__s2 = sp.local("__s2", excRate.value)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s2.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def getAccountSnapshot(self, params):
def getAccountSnapshot(self, params):
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
__s3 = sp.local("__s3", sp.record(account = sp.fst(params), borrowBalance = borrowBalance.value, cTokenBalance = self.data.balances[sp.fst(params)].balance, exchangeRateMantissa = excRate.value))
sp.set_type(sp.snd(params), sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))))
sp.transfer(__s3.value, sp.tez(0), sp.snd(params))
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
__s3 = sp.local("__s3", sp.record(account = sp.fst(params), borrowBalance = borrowBalance.value, cTokenBalance = self.data.balances[sp.fst(params)].balance, exchangeRateMantissa = excRate.value))
sp.set_type(sp.snd(params), sp.TContract(sp.TRecord(account = sp.TAddress, borrowBalance = sp.TNat, cTokenBalance = sp.TNat, exchangeRateMantissa = sp.TNat).layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))))
sp.transfer(__s3.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def getAllowance(self, params):
def getAllowance(self, params):
__s4 = sp.local("__s4", self.data.balances[sp.fst(params).owner].approvals[sp.fst(params).spender])
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s4.value, sp.tez(0), sp.snd(params))
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s4.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def getBalance(self, params):
def getBalance(self, params):
__s5 = sp.local("__s5", self.data.balances[sp.fst(params)].balance)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s5.value, sp.tez(0), sp.snd(params))
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s5.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def getBalanceOfUnderlying(self, params):
def getBalanceOfUnderlying(self, params):
sp.set_type(sp.fst(params), sp.TAddress)
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.balances[sp.fst(params)].balance, sp.TNat)
sp.set_type(excRate.value * self.data.balances[sp.fst(params)].balance, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * self.data.balances[sp.fst(params)].balance), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
__s6 = sp.local("__s6", (excRate.value * self.data.balances[sp.fst(params)].balance) // self.data.expScale)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s6.value, sp.tez(0), sp.snd(params))
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.balances[sp.fst(params)].balance, sp.TNat)
sp.set_type(excRate.value * self.data.balances[sp.fst(params)].balance, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * self.data.balances[sp.fst(params)].balance), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
__s6 = sp.local("__s6", (excRate.value * self.data.balances[sp.fst(params)].balance) // self.data.expScale)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s6.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def getCash(self, params):
def getCash(self, params):
sp.set_type(sp.fst(params), sp.TUnit)
__s7 = sp.local("__s7", sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)))
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s7.value, sp.tez(0), sp.snd(params))
__s7 = sp.local("__s7", sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)))
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s7.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def getTotalSupply(self, params):
def getTotalSupply(self, params):
sp.set_type(sp.fst(params), sp.TUnit)
__s8 = sp.local("__s8", self.data.totalSupply)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s8.value, sp.tez(0), sp.snd(params))
__s8 = sp.local("__s8", self.data.totalSupply)
sp.set_type(sp.snd(params), sp.TContract(sp.TNat))
sp.transfer(__s8.value, sp.tez(0), sp.snd(params))
@sp.entry_point
def hardResetOp(self, params):
def hardResetOp(self, params):
sp.set_type(params, sp.TUnit)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.activeOperations = sp.set([])
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.activeOperations = sp.set([])
@sp.entry_point
def mint(self, params):
def mint(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, minter = sp.sender, mintAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entry_point='mintAllowed').open_some())
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == params, 'CT_INVALID_MUTEZ')
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - params, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - params, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - params, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - params, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - params, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if True:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
self.data.totalSupply += amount.value
self.data.balances[sp.sender].balance += amount.value
self.data.isAccrualInterestValid = False
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, minter = sp.sender, mintAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entry_point='mintAllowed').open_some())
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == params, 'CT_INVALID_MUTEZ')
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - params, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - params, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - params, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - params, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - params, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if True:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
self.data.totalSupply += amount.value
self.data.balances[sp.sender].balance += amount.value
self.data.isAccrualInterestValid = False
@sp.entry_point
def redeem(self, params):
def redeem(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some())
redeem_amount = sp.local("redeem_amount", 0)
sp.if False:
redeem_amount.value = params
sp.else:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if False:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_amount.value = amount.value
redeem_tokens = sp.local("redeem_tokens", 0)
sp.if False:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if True:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_tokens.value = amount.value
sp.else:
redeem_tokens.value = params
sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= redeem_amount.value, 'CT_INSUFFICIENT_CASH')
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply')
self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance')
sp.if False:
sp.transfer(sp.unit, sp.mul(redeem_amount.value, sp.mutez(1)), sp.contract(sp.TUnit, sp.sender, entry_point='receive').open_some(message = 'bad contract destination'))
sp.else:
sp.send(sp.sender, sp.mul(redeem_amount.value, sp.mutez(1)))
self.data.isAccrualInterestValid = False
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some())
redeem_amount = sp.local("redeem_amount", 0)
sp.if False:
redeem_amount.value = params
sp.else:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if False:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_amount.value = amount.value
redeem_tokens = sp.local("redeem_tokens", 0)
sp.if False:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if True:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_tokens.value = amount.value
sp.else:
redeem_tokens.value = params
sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= redeem_amount.value, 'CT_INSUFFICIENT_CASH')
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply')
self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance')
sp.if False:
sp.transfer(sp.unit, sp.mul(redeem_amount.value, sp.mutez(1)), sp.contract(sp.TUnit, sp.sender, entry_point='receive').open_some(message = 'bad contract destination'))
sp.else:
sp.send(sp.sender, sp.mul(redeem_amount.value, sp.mutez(1)))
self.data.isAccrualInterestValid = False
@sp.entry_point
def redeemUnderlying(self, params):
def redeemUnderlying(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some())
redeem_amount = sp.local("redeem_amount", 0)
sp.if True:
redeem_amount.value = params
sp.else:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if False:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_amount.value = amount.value
redeem_tokens = sp.local("redeem_tokens", 0)
sp.if True:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if True:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_tokens.value = amount.value
sp.else:
redeem_tokens.value = params
sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= redeem_amount.value, 'CT_INSUFFICIENT_CASH')
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply')
self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance')
sp.if False:
sp.transfer(sp.unit, sp.mul(redeem_amount.value, sp.mutez(1)), sp.contract(sp.TUnit, sp.sender, entry_point='receive').open_some(message = 'bad contract destination'))
sp.else:
sp.send(sp.sender, sp.mul(redeem_amount.value, sp.mutez(1)))
self.data.isAccrualInterestValid = False
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some())
redeem_amount = sp.local("redeem_amount", 0)
sp.if True:
redeem_amount.value = params
sp.else:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if False:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_amount.value = amount.value
redeem_tokens = sp.local("redeem_tokens", 0)
sp.if True:
excRate = sp.local("excRate", self.data.initialExchangeRateMantissa)
sp.if self.data.totalSupply > 0:
sp.set_type(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), sp.TNat)
sp.set_type(0, sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves), sp.TNat)
sp.set_type(sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale, sp.TNat)
sp.set_type(sp.record(mantissa = sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(self.data.totalSupply, sp.TNat)
sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO')
sp.set_type((sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply, sp.TNat)
excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply
amount = sp.local("amount", 0)
sp.if True:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO')
compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value)
amount.value = compute_CToken_747.value
sp.else:
sp.set_type(excRate.value, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(sp.record(mantissa = excRate.value), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
sp.set_type(params, sp.TNat)
sp.set_type(excRate.value * params, sp.TNat)
sp.set_type(sp.record(mantissa = excRate.value * params), sp.TRecord(mantissa = sp.TNat).layout("mantissa"))
compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale)
amount.value = compute_CToken_749.value
redeem_tokens.value = amount.value
sp.else:
redeem_tokens.value = params
sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= redeem_amount.value, 'CT_INSUFFICIENT_CASH')
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply')
self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance')
sp.if False:
sp.transfer(sp.unit, sp.mul(redeem_amount.value, sp.mutez(1)), sp.contract(sp.TUnit, sp.sender, entry_point='receive').open_some(message = 'bad contract destination'))
sp.else:
sp.send(sp.sender, sp.mul(redeem_amount.value, sp.mutez(1)))
self.data.isAccrualInterestValid = False
@sp.entry_point
def reduceReserves(self, params):
def reduceReserves(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(12)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(params, sp.amount, sp.self_entry_point('reduceReservesInternal'))
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(12)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(params, sp.amount, sp.self_entry_point('reduceReservesInternal'))
@sp.entry_point
def reduceReservesInternal(self, params):
def reduceReservesInternal(self, params):
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(12), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(12)
sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= params, 'CT_INSUFFICIENT_CASH')
sp.verify(params <= self.data.totalReserves, 'CT_REDUCE_AMOUNT')
sp.set_type(self.data.totalReserves, sp.TNat)
sp.set_type(params, sp.TNat)
self.data.totalReserves = sp.as_nat(self.data.totalReserves - params, message = 'SUBTRACTION_UNDERFLOW')
sp.if True:
sp.transfer(sp.unit, sp.mul(params, sp.mutez(1)), sp.contract(sp.TUnit, self.data.administrator, entry_point='receive').open_some(message = 'bad contract destination'))
sp.else:
sp.send(self.data.administrator, sp.mul(params, sp.mutez(1)))
self.data.isAccrualInterestValid = False
sp.verify(self.data.activeOperations.contains(12), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(12)
sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= params, 'CT_INSUFFICIENT_CASH')
sp.verify(params <= self.data.totalReserves, 'CT_REDUCE_AMOUNT')
sp.set_type(self.data.totalReserves, sp.TNat)
sp.set_type(params, sp.TNat)
self.data.totalReserves = sp.as_nat(self.data.totalReserves - params, message = 'SUBTRACTION_UNDERFLOW')
sp.if True:
sp.transfer(sp.unit, sp.mul(params, sp.mutez(1)), sp.contract(sp.TUnit, self.data.administrator, entry_point='receive').open_some(message = 'bad contract destination'))
sp.else:
sp.send(self.data.administrator, sp.mul(params, sp.mutez(1)))
self.data.isAccrualInterestValid = False
@sp.entry_point
def removePendingGovernance(self, params):
def removePendingGovernance(self, params):
sp.set_type(params, sp.TUnit)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.pendingAdministrator = sp.none
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.pendingAdministrator = sp.none
@sp.entry_point
def repayBorrow(self, params):
def repayBorrow(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = sp.sender, repayAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some())
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == sp.min(borrowBalance.value, params), 'CT_INVALID_MUTEZ')
sp.set_type(borrowBalance.value, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params), sp.TNat)
self.data.balances[sp.sender].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW')
self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex
sp.set_type(self.data.totalBorrows, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params), sp.TNat)
self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW')
self.data.isAccrualInterestValid = False
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = sp.sender, repayAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some())
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == sp.min(borrowBalance.value, params), 'CT_INVALID_MUTEZ')
sp.set_type(borrowBalance.value, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params), sp.TNat)
self.data.balances[sp.sender].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW')
self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex
sp.set_type(self.data.totalBorrows, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params), sp.TNat)
self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW')
self.data.isAccrualInterestValid = False
@sp.entry_point
def repayBorrowBehalf(self, params):
def repayBorrowBehalf(self, params):
sp.set_type(params, sp.TRecord(borrower = sp.TAddress, repayAmount = sp.TNat).layout(("borrower", "repayAmount")))
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = params.borrower, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some())
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[params.borrower].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == sp.min(borrowBalance.value, params.repayAmount), 'CT_INVALID_MUTEZ')
sp.set_type(borrowBalance.value, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat)
self.data.balances[params.borrower].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW')
self.data.balances[params.borrower].accountBorrows.interestIndex = self.data.borrowIndex
sp.set_type(self.data.totalBorrows, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat)
self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW')
self.data.isAccrualInterestValid = False
sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL')
sp.if ~ (self.data.balances.contains(sp.sender)):
self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = params.borrower, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some())
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[params.borrower].accountBorrows)
borrowBalance = sp.local("borrowBalance", 0)
sp.if borrowSnapshot.value.principal > 0:
borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex
sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == sp.min(borrowBalance.value, params.repayAmount), 'CT_INVALID_MUTEZ')
sp.set_type(borrowBalance.value, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat)
self.data.balances[params.borrower].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW')
self.data.balances[params.borrower].accountBorrows.interestIndex = self.data.borrowIndex
sp.set_type(self.data.totalBorrows, sp.TNat)
sp.set_type(sp.min(borrowBalance.value, params.repayAmount), sp.TNat)
self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW')
self.data.isAccrualInterestValid = False
@sp.entry_point
def setAccrualIntPeriodRelevance(self, params):
def setAccrualIntPeriodRelevance(self, params):
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
sp.set_type(params, sp.TNat)
self.data.accrualIntPeriodRelevance = params
sp.set_type(params, sp.TNat)
self.data.accrualIntPeriodRelevance = params
@sp.entry_point
def setBorrowRatePerBlock(self, params):
def setBorrowRatePerBlock(self, params):
sp.verify(sp.sender == self.data.interestRateModel, 'CT_SENDER_NOT_IRM')
sp.verify(self.data.activeOperations.contains(6), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(6)
self.data.borrowRatePerBlock = params
sp.verify(self.data.activeOperations.contains(6), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(6)
self.data.borrowRatePerBlock = params
@sp.entry_point
def setComptroller(self, params):
def setComptroller(self, params):
sp.set_type(params, sp.TAddress)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.comptroller = params
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.comptroller = params
@sp.entry_point
def setInterestRateModel(self, params):
def setInterestRateModel(self, params):
sp.set_type(params, sp.TAddress)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(9)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(params, sp.tez(0), sp.self_entry_point('setInterestRateModelInternal'))
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(9)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(params, sp.tez(0), sp.self_entry_point('setInterestRateModelInternal'))
@sp.entry_point
def setInterestRateModelInternal(self, params):
def setInterestRateModelInternal(self, params):
sp.set_type(params, sp.TAddress)
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(9), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(9)
self.data.interestRateModel = params
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(9), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(9)
self.data.interestRateModel = params
@sp.entry_point
def setPendingGovernance(self, params):
def setPendingGovernance(self, params):
sp.set_type(params, sp.TAddress)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.pendingAdministrator = sp.some(params)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
self.data.pendingAdministrator = sp.some(params)
@sp.entry_point
def setReserveFactor(self, params):
def setReserveFactor(self, params):
sp.set_type(params, sp.TNat)
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(10)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(params, sp.tez(0), sp.self_entry_point('setReserveFactorInternal'))
sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN')
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(10)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest'))
sp.transfer(params, sp.tez(0), sp.self_entry_point('setReserveFactorInternal'))
@sp.entry_point
def setReserveFactorInternal(self, params):
def setReserveFactorInternal(self, params):
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(10), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(10)
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.verify(params <= self.data.reserveFactorMaxMantissa, 'CT_INVALID_RESERVE_FACTOR')
self.data.reserveFactorMantissa = params
self.data.isAccrualInterestValid = False
sp.verify(self.data.activeOperations.contains(10), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(10)
sp.set_type(sp.level, sp.TNat)
sp.set_type(self.data.accrualBlockNumber, sp.TNat)
compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW'))
sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD')
sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID')
sp.verify(params <= self.data.reserveFactorMaxMantissa, 'CT_INVALID_RESERVE_FACTOR')
self.data.reserveFactorMantissa = params
self.data.isAccrualInterestValid = False
@sp.entry_point
def setSupplyRatePerBlock(self, params):
def setSupplyRatePerBlock(self, params):
sp.verify(sp.sender == self.data.interestRateModel, 'CT_SENDER_NOT_IRM')
sp.verify(self.data.activeOperations.contains(7), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(7)
self.data.supplyRatePerBlock = params
sp.verify(self.data.activeOperations.contains(7), 'OP_NOT_ACTIVE')
self.data.activeOperations.remove(7)
self.data.supplyRatePerBlock = params
@sp.entry_point
def sweepFA12(self, params):
def sweepFA12(self, params):
sp.set_type(params, sp.TRecord(amount = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", "tokenAddress")))
sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entry_point='transfer').open_some())
sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entry_point='transfer').open_some())
@sp.entry_point
def sweepFA2(self, params):
def sweepFA2(self, params):
sp.set_type(params, sp.TRecord(amount = sp.TNat, id = sp.TNat, tokenAddress = sp.TAddress).layout(("amount", ("id", "tokenAddress"))))
sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = self.data.administrator, token_id = params.id, amount = params.amount)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entry_point='transfer').open_some())
sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = self.data.administrator, token_id = params.id, amount = params.amount)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entry_point='transfer').open_some())
@sp.entry_point
def sweepMutez(self, params):
def sweepMutez(self, params):
sp.set_type(params, sp.TBool)
sp.verify(False, 'CT_SWEEP_XTZ')
sp.if params:
sp.send(self.data.administrator, sp.balance)
sp.else:
sp.send(self.data.administrator, sp.balance)
sp.verify(False, 'CT_SWEEP_XTZ')
sp.if params:
sp.send(self.data.administrator, sp.balance)
sp.else:
sp.send(self.data.administrator, sp.balance)
@sp.entry_point
def transfer(self, params):
def transfer(self, params):
sp.set_type(params, sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))))
sp.verify((params.from_ == sp.sender) | (self.data.balances[params.from_].approvals[sp.sender] >= params.value), 'CT_TRANSFER_NOT_APPROVED')
sp.if ~ (self.data.balances.contains(params.to_)):
self.data.balances[params.to_] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, src = params.from_, dst = params.to_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entry_point='transferAllowed').open_some())
sp.set_type(sp.record(from_ = params.from_, sender = sp.sender, to_ = params.to_, value = params.value), sp.TRecord(from_ = sp.TAddress, sender = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout((("from_", "sender"), ("to_", "value"))))
sp.verify(self.data.balances[params.from_].balance >= params.value, 'CT_INSUFFICIENT_BALANCE')
self.data.balances[params.from_].balance = sp.as_nat(self.data.balances[params.from_].balance - params.value)
self.data.balances[params.to_].balance += params.value
sp.if params.from_ != sp.sender:
self.data.balances[params.from_].approvals[sp.sender] = sp.as_nat(self.data.balances[params.from_].approvals[sp.sender] - params.value)
sp.verify((params.from_ == sp.sender) | (self.data.balances[params.from_].approvals[sp.sender] >= params.value), 'CT_TRANSFER_NOT_APPROVED')
sp.if ~ (self.data.balances.contains(params.to_)):
self.data.balances[params.to_] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0)
sp.transfer(sp.record(cToken = sp.self_address, src = params.from_, dst = params.to_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entry_point='transferAllowed').open_some())
sp.set_type(sp.record(from_ = params.from_, sender = sp.sender, to_ = params.to_, value = params.value), sp.TRecord(from_ = sp.TAddress, sender = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout((("from_", "sender"), ("to_", "value"))))
sp.verify(self.data.balances[params.from_].balance >= params.value, 'CT_INSUFFICIENT_BALANCE')
self.data.balances[params.from_].balance = sp.as_nat(self.data.balances[params.from_].balance - params.value)
self.data.balances[params.to_].balance += params.value
sp.if params.from_ != sp.sender:
self.data.balances[params.from_].approvals[sp.sender] = sp.as_nat(self.data.balances[params.from_].approvals[sp.sender] - params.value)
@sp.entry_point
def updateBorrowRateInternal(self, params):
def updateBorrowRateInternal(self, params):
sp.set_type(params, sp.TUnit)
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(6), 'OP_NOT_ACTIVE')
sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), cb = sp.self_entry_point('setBorrowRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some())
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(6), 'OP_NOT_ACTIVE')
sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), cb = sp.self_entry_point('setBorrowRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some())
@sp.entry_point
def updateBorrowRatePerBlock(self, params):
def updateBorrowRatePerBlock(self, params):
sp.set_type(params, sp.TUnit)
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(6)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateBorrowRateInternal'))
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(6)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateBorrowRateInternal'))
@sp.entry_point
def updateSupplyRateInternal(self, params):
def updateSupplyRateInternal(self, params):
sp.set_type(params, sp.TUnit)
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(7), 'OP_NOT_ACTIVE')
sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), cb = sp.self_entry_point('setSupplyRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getSupplyRate').open_some())
sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION')
sp.verify(self.data.activeOperations.contains(7), 'OP_NOT_ACTIVE')
sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), cb = sp.self_entry_point('setSupplyRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getSupplyRate').open_some())
@sp.entry_point
def updateSupplyRatePerBlock(self, params):
def updateSupplyRatePerBlock(self, params):
sp.set_type(params, sp.TUnit)
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(7)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateSupplyRateInternal'))
sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS')
self.data.activeOperations.add(7)
sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateSupplyRateInternal'))
Storage:
{accrualBlockNumber: sp.TNat;
accrualIntPeriodRelevance: sp.TNat;
activeOperations: sp.TSet(sp.TNat);
administrator: sp.TAddress;
balances: sp.TBigMap(sp.TAddress,
{
accountBorrows:
{
interestIndex: sp.TNat;
principal: sp.TNat;
}.layout(("interestIndex", "principal"));
approvals: sp.TMap(sp.TAddress, sp.TNat);
balance: sp.TNat;
}.layout(("accountBorrows", ("approvals", "balance"))));
borrowIndex: sp.TNat;
borrowRateMaxMantissa: sp.TNat;
borrowRatePerBlock: sp.TNat;
comptroller: sp.TAddress;
expScale: sp.TNat;
halfExpScale: sp.TNat;
initialExchangeRateMantissa: sp.TNat;
interestRateModel: sp.TAddress;
isAccrualInterestValid: sp.TBool;
pendingAdministrator: sp.TOption(sp.TAddress);
reserveFactorMantissa: sp.TNat;
reserveFactorMaxMantissa: sp.TNat;
supplyRatePerBlock: sp.TNat;
totalBorrows: sp.TNat;
totalReserves: sp.TNat;
totalSupply: sp.TNat;
}.layout((((("accrualBlockNumber", "accrualIntPeriodRelevance"), ("activeOperations", ("administrator", "balances"))), (("borrowIndex", "borrowRateMaxMantissa"), ("borrowRatePerBlock", ("comptroller", "expScale")))), ((("halfExpScale", "initialExchangeRateMantissa"), ("interestRateModel", ("isAccrualInterestValid", "pendingAdministrator"))), (("reserveFactorMantissa", ("reserveFactorMaxMantissa", "supplyRatePerBlock")), ("totalBorrows", ("totalReserves", "totalSupply"))))))
Entry points:
| acceptGovernance| accrueInterest
| addReserves sp.TNat
| addReservesInternal
{
addAmount: sp.TNat;
originalSender: sp.TAddress;
}.layout(("addAmount", "originalSender"))
| approve
{
spender: sp.TAddress;
value: sp.TNat;
}.layout(("spender", "value"))
| borrow sp.TNat
| borrowBalanceStored sp.TPair(sp.TAddress, sp.TContract(sp.TNat))
| doAccrueInterest sp.TNat
| exchangeRateStored sp.TPair(sp.TUnit, sp.TContract(sp.TNat))
| getAccountSnapshot sp.TPair(sp.TAddress, sp.TContract(
{
account: sp.TAddress;
borrowBalance: sp.TNat;
cTokenBalance: sp.TNat;
exchangeRateMantissa: sp.TNat;
}.layout((("account", "borrowBalance"), ("cTokenBalance", "exchangeRateMantissa")))))
| getAllowance sp.TPair(
{
owner: sp.TAddress;
spender: sp.TAddress;
}.layout(("owner", "spender")), sp.TContract(sp.TNat))
| getBalance sp.TPair(sp.TAddress, sp.TContract(sp.TNat))
| getBalanceOfUnderlying sp.TPair(sp.TAddress, sp.TContract(sp.TNat))
| getCash sp.TPair(sp.TUnit, sp.TContract(sp.TNat))
| getTotalSupply sp.TPair(sp.TUnit, sp.TContract(sp.TNat))
| hardResetOp
| mint sp.TNat
| redeem sp.TNat
| redeemUnderlying sp.TNat
| reduceReserves sp.TNat
| reduceReservesInternal sp.TNat
| removePendingGovernance
| repayBorrow sp.TNat
| repayBorrowBehalf
{
borrower: sp.TAddress;
repayAmount: sp.TNat;
}.layout(("borrower", "repayAmount"))
| setAccrualIntPeriodRelevance sp.TNat
| setBorrowRatePerBlock sp.TNat
| setComptroller sp.TAddress
| setInterestRateModel sp.TAddress
| setInterestRateModelInternal sp.TAddress
| setPendingGovernance sp.TAddress
| setReserveFactor sp.TNat
| setReserveFactorInternal sp.TNat
| setSupplyRatePerBlock sp.TNat
| sweepFA12
{
amount: sp.TNat;
tokenAddress: sp.TAddress;
}.layout(("amount", "tokenAddress"))
| sweepFA2
{
amount: sp.TNat;
id: sp.TNat;
tokenAddress: sp.TAddress;
}.layout(("amount", ("id", "tokenAddress")))
| sweepMutez sp.TBool
| transfer
{
from_: sp.TAddress;
to_: sp.TAddress;
value: sp.TNat;
}.layout(("from_ as from", ("to_ as to", "value")))
| updateBorrowRateInternal
| updateBorrowRatePerBlock
| updateSupplyRateInternal
| updateSupplyRatePerBlock
Generated Michelson:
Sizes
| Storage: | 4227 Bytes | |
| Big map originations (2): | 64 Bytes | |
| Code: | 15608 Bytes | |
| Combined: | 19899 Bytes |
Initial Storage
(Pair (Pair (Pair (Pair (Pair 0 5) (Pair {} (Pair "tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5" {}))) (Pair (Pair 1000000000000000000 5000000000000) (Pair 0 (Pair "KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1" 1000000000000000000)))) (Pair (Pair (Pair 500000000000000000 1000000000000000000) (Pair "KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF" (Pair False None))) (Pair (Pair 0 (Pair 1000000000000000000 0)) (Pair 0 (Pair 0 0))))) {Elt 0 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; DUP; GET 3; GET 6; IF_NONE { PUSH string "CT_NOT_SET_PENDING_ADMIN"; FAILWITH } {}; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_PENDING_ADMIN"; FAILWITH }; DUP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; GET 3; GET 6; IF_NONE { PUSH int 593; FAILWITH } {}; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; NONE address; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 1 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; NEQ; IF {} { PUSH string "CT_INTERNAL_CALL"; FAILWITH }; PUSH nat 0; DUP 3; CAR; CAR; GET 6; SENDER; GET; IF_NONE { PUSH int 281; FAILWITH } {}; GET 3; DUP 3; CAR; GET; IF_NONE { PUSH nat 0 } {}; COMPARE; EQ; IF { PUSH bool True } { DUP; CDR; PUSH nat 0; COMPARE; EQ }; IF {} { PUSH string "CT_UNSAFE_ALLOWANCE_CHANGE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; DUP; SENDER; DUP; DUG 2; GET; IF_NONE { PUSH int 283; FAILWITH } {}; DUP; GET 3; DUP 10; CDR; SOME; DIG 10; CAR; UPDATE; UPDATE 3; SOME; SWAP; UPDATE; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 2 { UNPAIR; IF_LEFT { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; PUSH nat 8; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 8; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; DUP; DUG 2; CAR; GET 3; CDR; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_BORROW_RATE"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; CAR; CAR; LEVEL; SUB; ISNAT; IF_NONE { PUSH int 543; FAILWITH } {}; MUL; SWAP; DUP; DUG 2; CAR; GET 8; DUP 3; GET 7; DUP 3; MUL; EDIV; IF_NONE { PUSH int 58; FAILWITH } { CAR }; DIG 2; DUP; GET 7; DUP 3; ADD; UPDATE 7; DUP; DUP; GET 9; SWAP; DUP; DUG 5; CAR; GET 8; DIG 3; DIG 5; GET 5; CAR; MUL; EDIV; IF_NONE { PUSH int 58; FAILWITH } { CAR }; ADD; UPDATE 9; DUP; DUG 2; UNPAIR; UNPAIR; SWAP; UNPAIR; CDR; DUP 6; CAR; GET 3; CAR; DUP 7; CAR; GET 8; DIG 7; CAR; GET 3; CAR; DIG 7; MUL; EDIV; IF_NONE { PUSH int 58; FAILWITH } { CAR }; ADD; PAIR; PAIR; SWAP; UNPAIR; CDR; LEVEL; PAIR; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 3 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { DROP } { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 5; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; UNPAIR; UNPAIR; SWAP; CDR; EMPTY_SET nat; PAIR; SWAP; PAIR; PAIR; PAIR; NIL operation; PAIR }; Elt 4 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } } { PUSH int -1; FAILWITH }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; PUSH nat 12; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 12; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; SWAP; DUP; PUSH mutez 1; BALANCE; EDIV; IF_NONE { UNIT; FAILWITH } {}; CAR; COMPARE; GE; IF {} { PUSH string "CT_INSUFFICIENT_CASH"; FAILWITH }; SWAP; DUP; DUG 2; GET 9; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_REDUCE_AMOUNT"; FAILWITH }; SWAP; DUP; DUG 2; SWAP; DUP; DUG 2; DIG 3; GET 9; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; UPDATE 9; SWAP; NIL operation; DUP 3; CAR; CAR; GET 5; CONTRACT %receive unit; IF_NONE { PUSH string "bad contract destination"; FAILWITH } {}; PUSH mutez 1; DIG 3; MUL; UNIT; TRANSFER_TOKENS; CONS; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CDR; PUSH bool False; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR }; Elt 5 { UNPAIR; IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { DROP } } } } { PUSH int -1; FAILWITH }; DUP; CAR; CAR; GET 5; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; NONE address; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 6 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT {} { PUSH int -1; FAILWITH } } { PUSH int -1; FAILWITH } }; SWAP; DUP; DUG 2; GET 3; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; PUSH nat 6; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 6; UPDATE; PAIR; SWAP; PAIR; SWAP; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 7 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } { PUSH int -1; FAILWITH } }; SWAP; DUP; DUG 2; CAR; CAR; GET 5; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; CDR; DIG 5; PAIR; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; NIL operation; PAIR }; Elt 8 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } { PUSH int -1; FAILWITH } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; PUSH nat 9; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 9; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; UNPAIR; UNPAIR; SWAP; CDR; DIG 4; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 9 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } }; SWAP; DUP; DUG 2; CAR; CAR; GET 5; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_NOT_ADMIN"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; UNPAIR; SWAP; CAR; DIG 5; SOME; SWAP; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 10 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT {} { PUSH int -1; FAILWITH } } } }; SELF_ADDRESS; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_INTERNAL_FUNCTION"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; PUSH nat 10; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 10; UPDATE; PAIR; SWAP; PAIR; PAIR; PAIR; DUP; DUG 2; CAR; CAR; CAR; CAR; LEVEL; SUB; ISNAT; IF_NONE { PUSH string "SUBTRACTION_UNDERFLOW"; FAILWITH } {}; DUP 3; CAR; CAR; CAR; CDR; COMPARE; GT; IF {} { PUSH string "CT_INTEREST_OLD"; FAILWITH }; SWAP; DUP; DUG 2; GET 3; GET 5; IF {} { PUSH string "CT_INTEREST_INVALID"; FAILWITH }; SWAP; DUP; DUG 2; GET 5; GET 3; SWAP; DUP; DUG 2; COMPARE; LE; IF {} { PUSH string "CT_INVALID_RESERVE_FACTOR"; FAILWITH }; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; UNPAIR; CDR; DIG 4; PAIR; PAIR; SWAP; UNPAIR; SWAP; UNPAIR; SWAP; CDR; PUSH bool False; PAIR; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; NIL operation; PAIR }; Elt 11 { UNPAIR; IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } { IF_LEFT { PUSH int -1; FAILWITH } {} } } }; SWAP; DUP; DUG 2; GET 3; GET 3; SENDER; COMPARE; EQ; IF {} { PUSH string "CT_SENDER_NOT_IRM"; FAILWITH }; SWAP; DUP; DUG 2; CAR; CAR; GET 3; PUSH nat 7; MEM; IF {} { PUSH string "OP_NOT_ACTIVE"; FAILWITH }; SWAP; UNPAIR; UNPAIR; UNPAIR; SWAP; UNPAIR; PUSH bool False; PUSH nat 7; UPDATE; PAIR; SWAP; PAIR; PAIR; SWAP; UNPAIR; SWAP; UNPAIR; UNPAIR; SWAP; CAR; DIG 5; SWAP; PAIR; SWAP; PAIR; PAIR; SWAP; PAIR; SWAP; PAIR; NIL operation; PAIR }})
Michelson Code
parameter (or (or (or (or (unit %acceptGovernance) (or (pair %approve (address %spender) (nat %value)) (nat %doAccrueInterest))) (or (unit %hardResetOp) (or (nat %reduceReservesInternal) (unit %removePendingGovernance)))) (or (or (nat %setBorrowRatePerBlock) (or (address %setComptroller) (address %setInterestRateModelInternal))) (or (address %setPendingGovernance) (or (nat %setReserveFactorInternal) (nat %setSupplyRatePerBlock))))) (or (or (or (or (unit %accrueInterest) (or (nat %addReserves) (pair %addReservesInternal (nat %addAmount) (address %originalSender)))) (or (or (nat %borrow) (pair %borrowBalanceStored address (contract nat))) (or (pair %exchangeRateStored unit (contract nat)) (pair %getAccountSnapshot address (contract (pair (pair (address %account) (nat %borrowBalance)) (pair (nat %cTokenBalance) (nat %exchangeRateMantissa)))))))) (or (or (pair %getAllowance (pair (address %owner) (address %spender)) (contract nat)) (or (pair %getBalance address (contract nat)) (pair %getBalanceOfUnderlying address (contract nat)))) (or (or (pair %getCash unit (contract nat)) (pair %getTotalSupply unit (contract nat))) (or (nat %mint) (nat %redeem))))) (or (or (or (nat %redeemUnderlying) (or (nat %reduceReserves) (nat %repayBorrow))) (or (or (pair %repayBorrowBehalf (address %borrower) (nat %repayAmount)) (nat %setAccrualIntPeriodRelevance)) (or (address %setInterestRateModel) (nat %setReserveFactor)))) (or (or (or (pair %sweepFA12 (nat %amount) (address %tokenAddress)) (pair %sweepFA2 (nat %amount) (pair (nat %id) (address %tokenAddress)))) (or (bool %sweepMutez) (pair %transfer (address %from) (pair (address %to) (nat %value))))) (or (or (unit %updateBorrowRateInternal) (unit %updateBorrowRatePerBlock)) (or (unit %updateSupplyRateInternal) (unit %updateSupplyRatePerBlock)))))));
storage (pair (pair (pair (pair (pair (nat %accrualBlockNumber) (nat %accrualIntPeriodRelevance)) (pair (set %activeOperations nat) (pair (address %administrator) (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))))))) (pair (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) (pair (nat %borrowRatePerBlock) (pair (address %comptroller) (nat %expScale))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (bool %isAccrualInterestValid) (option %pendingAdministrator address)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))));
storage (pair (pair (pair (pair (pair (nat %accrualBlockNumber) (nat %accrualIntPeriodRelevance)) (pair (set %activeOperations nat) (pair (address %administrator) (big_map %balances address (pair (pair %accountBorrows (nat %interestIndex) (nat %principal)) (pair (map %approvals address nat) (nat %balance))))))) (pair (pair (nat %borrowIndex) (nat %borrowRateMaxMantissa)) (pair (nat %borrowRatePerBlock) (pair (address %comptroller) (nat %expScale))))) (pair (pair (pair (nat %halfExpScale) (nat %initialExchangeRateMantissa)) (pair (address %interestRateModel) (pair (bool %isAccrualInterestValid) (option %pendingAdministrator address)))) (pair (pair (nat %reserveFactorMantissa) (pair (nat %reserveFactorMaxMantissa) (nat %supplyRatePerBlock))) (pair (nat %totalBorrows) (pair (nat %totalReserves) (nat %totalSupply)))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))));
code
{
CAST (pair (or (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or (or nat (pair address (contract nat))) (or (pair unit (contract nat)) (pair address (contract (pair (pair address nat) (pair nat nat))))))) (or (or (pair (pair address address) (contract nat)) (or (pair address (contract nat)) (pair address (contract nat)))) (or (or (pair unit (contract nat)) (pair unit (contract nat))) (or nat nat)))) (or (or (or nat (or nat nat)) (or (or (pair address nat) nat) (or address nat))) (or (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))) (or (or unit unit) (or unit unit)))))) (pair (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))))); # pair (or (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or (or nat (pair address (contract nat))) (or (pair unit (contract nat)) (pair address (contract (pair (pair address nat) (pair nat nat))))))) (or (or (pair (pair address address) (contract nat)) (or (pair address (contract nat)) (pair address (contract nat)))) (or (or (pair unit (contract nat)) (pair unit (contract nat))) (or nat nat)))) (or (or (or nat (or nat nat)) (or (or (pair address nat) nat) (or address nat))) (or (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))) (or (or unit unit) (or unit unit)))))) (pair (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))))
UNPAIR 3; # or (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or (or nat (pair address (contract nat))) (or (pair unit (contract nat)) (pair address (contract (pair (pair address nat) (pair nat nat))))))) (or (or (pair (pair address address) (contract nat)) (or (pair address (contract nat)) (pair address (contract nat)))) (or (or (pair unit (contract nat)) (pair unit (contract nat))) (or nat nat)))) (or (or (or nat (or nat nat)) (or (or (pair address nat) nat) (or address nat))) (or (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))) (or (or unit unit) (or unit unit))))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_LEFT
{
DUP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 1; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 2; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 3; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 4; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 5; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 6; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 7; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 8; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 9; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 10; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int -1; # int : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# missing entry point # @some : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) : @some : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EXEC; # pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == accrueInterest ==
# if self.data.accrualBlockNumber == 0: # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# self.data.accrualBlockNumber = sp.level # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @level nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair @level nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair @level nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair @level nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if sp.level != self.data.accrualBlockNumber: # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# self.data.activeOperations.add(8) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 8; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), cb = sp.self_entry_point('doAccrueInterest'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some()) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %getBorrowRate (pair (pair nat nat) (pair (contract nat) nat)); # option (contract (pair (pair nat nat) (pair (contract nat) nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 526; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %doAccrueInterest; # @self : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair @self nat) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
NIL operation; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = True # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
# == addReserves ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(11) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entry_point('addReservesInternal')) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %addReservesInternal; # @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @amount : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : @sender : @amount : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat @sender : @amount : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == addReservesInternal ==
# sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_FUNCTION"; # string : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.activeOperations.contains(11), 'OP_NOT_ACTIVE') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : set nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_NOT_ACTIVE"; # string : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.remove(11) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == params.addAmount, 'CT_INVALID_MUTEZ') # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat address : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : mutez : nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INVALID_MUTEZ"; # string : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalReserves += params.addAmount # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat address : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 9; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
# == borrow ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, borrower = sp.sender, borrowAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entry_point='borrowAllowed').open_some()) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # address : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %borrowAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 175; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= params, 'CT_INSUFFICIENT_CASH') # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_CASH"; # string : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if False:
# sp.send(sp.sender, sp.mul(params, sp.mutez(1))) # list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT unit; # option (contract unit) : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 24; # int : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # nat : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows) # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.principal = borrowBalance.value + params # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 168; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 12; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 2; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 169; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalBorrows += borrowBalance.value + params # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 7; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == borrowBalanceStored ==
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (contract nat) : pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result(borrowBalance.value)
# sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == exchangeRateStored ==
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result(excRate.value)
# sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getAccountSnapshot ==
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows) # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DIG 2; # pair nat nat : nat : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # @some : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result(sp.record(account = sp.fst(params), borrowBalance = borrowBalance.value, cTokenBalance = self.data.balances[sp.fst(params)].balance, exchangeRateMantissa = excRate.value)) # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 358; # int : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:358 # @some : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (contract (pair (pair address nat) (pair nat nat))) : nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s3.value, sp.tez(0), sp.snd(params)) # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract (pair (pair address nat) (pair nat nat))) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair address nat) (pair nat nat) : mutez : contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getAllowance ==
# sp.result(self.data.balances[sp.fst(params).owner].approvals[sp.fst(params).spender]) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair address address) (contract nat) : pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair address address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 340; # int : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:340 # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair address address) (contract nat) : map address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair address address) (contract nat) : pair (pair address address) (contract nat) : map address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair address address) (contract nat) : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair address address : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # address : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 340; # int : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:340 # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s4.value, sp.tez(0), sp.snd(params)) # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair address address) (contract nat) : list operation : @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # @some : mutez : contract nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getBalance ==
# sp.result(self.data.balances[sp.fst(params)].balance) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (contract nat) : pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 295; # int : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:295 # @some : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s5.value, sp.tez(0), sp.snd(params)) # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getBalanceOfUnderlying ==
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result((excRate.value * self.data.balances[sp.fst(params)].balance) // self.data.expScale) # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 312; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:312 # @some : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 58; # int : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
# == getCash ==
# sp.result(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit))) # pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getTotalSupply ==
# sp.result(self.data.totalSupply) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s8.value, sp.tez(0), sp.snd(params)) # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
# == mint ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, minter = sp.sender, mintAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entry_point='mintAllowed').open_some()) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # address : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %mintAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 71; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == params, 'CT_INVALID_MUTEZ') # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : mutez : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INVALID_MUTEZ"; # string : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP 2; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - params, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount = sp.local("amount", 0)
# if True:
# sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value) # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount.value = compute_CToken_747.value
# self.data.totalSupply += amount.value # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 10; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].balance += amount.value # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 66; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 9; # nat : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == redeem ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some()) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # address : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %redeemAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 136; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# redeem_amount = sp.local("redeem_amount", 0) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if False:
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP 2; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount = sp.local("amount", 0)
# if False:
# compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale) # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 58; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount.value = compute_CToken_749.value
# redeem_amount.value = amount.value
# redeem_tokens = sp.local("redeem_tokens", 0)
# if False:
# redeem_tokens.value = params # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient supply"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 10; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 8; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 11; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:131 # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient balance"; # string : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if False:
# sp.send(sp.sender, sp.mul(redeem_amount.value, sp.mutez(1))) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT unit; # option (contract unit) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 24; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
# == redeemUnderlying ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some()) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # address : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %redeemAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 136; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# redeem_amount = sp.local("redeem_amount", 0)
# if True:
# redeem_amount.value = params # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# redeem_tokens = sp.local("redeem_tokens", 0) # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if True:
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP 2; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 7; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount = sp.local("amount", 0)
# if True:
# sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value) # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount.value = compute_CToken_747.value
# redeem_tokens.value = amount.value
# sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient supply"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 10; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 8; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 11; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:131 # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient balance"; # string : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if False:
# sp.send(sp.sender, sp.mul(redeem_amount.value, sp.mutez(1))) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT unit; # option (contract unit) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 24; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == reduceReserves ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # address : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(12) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 12; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(params, sp.amount, sp.self_entry_point('reduceReservesInternal')) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %reduceReservesInternal; # @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : @amount : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == repayBorrow ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = sp.sender, repayAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some()) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # address : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %repayBorrowAllowed (pair address (pair address (pair address nat))); # option (contract (pair address (pair address (pair address nat)))) : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 225; # int : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @sender : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : @sender : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 4; # pair @self (pair @sender (pair @sender nat)) : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # list operation : pair @self (pair @sender (pair @sender nat)) : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair @self (pair @sender (pair @sender nat)) : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows) # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == sp.min(borrowBalance.value, params), 'CT_INVALID_MUTEZ') # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : mutez : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INVALID_MUTEZ"; # string : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 218; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 14; # nat : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 2; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 219; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 7; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
# == repayBorrowBehalf ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = params.borrower, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some()) # pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # address : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %repayBorrowAllowed (pair address (pair address (pair address nat))); # option (contract (pair address (pair address (pair address nat)))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 225; # int : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address nat : pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address nat : nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address nat : pair address nat : nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair address nat : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 4; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # list operation : pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[params.borrower].accountBorrows) # @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == sp.min(borrowBalance.value, params.repayAmount), 'CT_INVALID_MUTEZ') # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair address nat : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : mutez : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INVALID_MUTEZ"; # string : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.borrower].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 218; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 14; # pair address nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 2; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.borrower].accountBorrows.interestIndex = self.data.borrowIndex # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 219; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # pair address nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 7; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == setAccrualIntPeriodRelevance ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # address : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.accrualIntPeriodRelevance = params # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == setInterestRateModel ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # address : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : nat : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(9) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 9; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(params, sp.tez(0), sp.self_entry_point('setInterestRateModelInternal')) # list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setInterestRateModelInternal; # @self : list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # address : mutez : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == setReserveFactor ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # address : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(10) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 10; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(params, sp.tez(0), sp.self_entry_point('setReserveFactorInternal')) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setReserveFactorInternal; # @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
# == sweepFA12 ==
# sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entry_point='transfer').open_some()) # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat address : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # address : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 11; # int : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair nat address : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # address : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == sweepFA2 ==
# sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = self.data.administrator, token_id = params.id, amount = params.amount)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entry_point='transfer').open_some()) # pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat (pair nat address) : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat (pair nat address) : pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
PUSH string "CT_SWEEP_XTZ"; # string : bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# == transfer ==
# sp.verify((params.from_ == sp.sender) | (self.data.balances[params.from_].approvals[sp.sender] >= params.value), 'CT_TRANSFER_NOT_APPROVED') # pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
PUSH bool True; # bool : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DUP; # pair address (pair address nat) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:247 # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : map address nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:247 # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # bool : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_TRANSFER_NOT_APPROVED"; # string : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(params.to_)): # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.to_] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair address (pair address nat) : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, src = params.from_, dst = params.to_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entry_point='transferAllowed').open_some()) # pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transferAllowed (pair (pair address address) (pair address nat)); # option (contract (pair (pair address address) (pair address nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 261; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 5; # pair address (pair address nat) : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair address (pair address nat) : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair @self address) (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.balances[params.from_].balance >= params.value, 'CT_INSUFFICIENT_BALANCE') # pair address (pair address nat) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (pair address nat) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 253; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:253 # @some : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_BALANCE"; # string : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.from_].balance = sp.as_nat(self.data.balances[params.from_].balance - params.value) # list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 254; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # pair address (pair address nat) : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 11; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 12; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 254; # int : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:254 # @some : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 254; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.to_].balance += params.value # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 255; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # pair address (pair address nat) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if params.from_ != sp.sender: # list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (pair address nat) : @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# self.data.balances[params.from_].approvals[sp.sender] = sp.as_nat(self.data.balances[params.from_].approvals[sp.sender] - params.value) # list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # pair address (pair address nat) : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:257 # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : map address nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:257 # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 3; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateBorrowRateInternal ==
# sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_FUNCTION"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.activeOperations.contains(6), 'OP_NOT_ACTIVE') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 6; # nat : set nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_NOT_ACTIVE"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), cb = sp.self_entry_point('setBorrowRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some()) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %getBorrowRate (pair (pair nat nat) (pair (contract nat) nat)); # option (contract (pair (pair nat nat) (pair (contract nat) nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 382; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setBorrowRatePerBlock; # @self : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair @self nat) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateBorrowRatePerBlock ==
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(6) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 6; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateBorrowRateInternal')) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %updateBorrowRateInternal; # @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateSupplyRateInternal ==
# sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_FUNCTION"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.activeOperations.contains(7), 'OP_NOT_ACTIVE') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 7; # nat : set nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_NOT_ACTIVE"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), cb = sp.self_entry_point('setSupplyRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getSupplyRate').open_some()) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %getSupplyRate (pair (pair nat nat) (pair (contract nat) nat)); # option (contract (pair (pair nat nat) (pair (contract nat) nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 413; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setSupplyRatePerBlock; # @self : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair @self nat) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateSupplyRatePerBlock ==
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(7) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 7; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateSupplyRateInternal')) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %updateSupplyRateInternal; # @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ITER
{
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : list operation
PAIR; # pair (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))) : list operation
SWAP; # list operation : pair (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))))
PAIR; # pair (list operation) (pair (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))))
};
{
CAST (pair (or (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or (or nat (pair address (contract nat))) (or (pair unit (contract nat)) (pair address (contract (pair (pair address nat) (pair nat nat))))))) (or (or (pair (pair address address) (contract nat)) (or (pair address (contract nat)) (pair address (contract nat)))) (or (or (pair unit (contract nat)) (pair unit (contract nat))) (or nat nat)))) (or (or (or nat (or nat nat)) (or (or (pair address nat) nat) (or address nat))) (or (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))) (or (or unit unit) (or unit unit)))))) (pair (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))))); # pair (or (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or (or nat (pair address (contract nat))) (or (pair unit (contract nat)) (pair address (contract (pair (pair address nat) (pair nat nat))))))) (or (or (pair (pair address address) (contract nat)) (or (pair address (contract nat)) (pair address (contract nat)))) (or (or (pair unit (contract nat)) (pair unit (contract nat))) (or nat nat)))) (or (or (or nat (or nat nat)) (or (or (pair address nat) nat) (or address nat))) (or (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))) (or (or unit unit) (or unit unit)))))) (pair (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))))
UNPAIR 3; # or (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (or (or (or (or unit (or nat (pair nat address))) (or (or nat (pair address (contract nat))) (or (pair unit (contract nat)) (pair address (contract (pair (pair address nat) (pair nat nat))))))) (or (or (pair (pair address address) (contract nat)) (or (pair address (contract nat)) (pair address (contract nat)))) (or (or (pair unit (contract nat)) (pair unit (contract nat))) (or nat nat)))) (or (or (or nat (or nat nat)) (or (or (pair address nat) nat) (or address nat))) (or (or (or (pair nat address) (pair nat (pair nat address))) (or bool (pair address (pair address nat)))) (or (or unit unit) (or unit unit))))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_LEFT
{
DUP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 1; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 2; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 3; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 4; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 5; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 6; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 7; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 8; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 9; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 10; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : nat : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int -1; # int : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# missing entry point # @some : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) : @some : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EXEC; # pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == accrueInterest ==
# if self.data.accrualBlockNumber == 0: # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# self.data.accrualBlockNumber = sp.level # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @level nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair @level nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair @level nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair @level nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if sp.level != self.data.accrualBlockNumber: # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# self.data.activeOperations.add(8) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 8; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), cb = sp.self_entry_point('doAccrueInterest'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some()) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %getBorrowRate (pair (pair nat nat) (pair (contract nat) nat)); # option (contract (pair (pair nat nat) (pair (contract nat) nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 526; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %doAccrueInterest; # @self : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair @self nat) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
NIL operation; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = True # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
# == addReserves ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(11) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(addAmount = params, originalSender = sp.sender), sp.amount, sp.self_entry_point('addReservesInternal')) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %addReservesInternal; # @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @amount : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : @sender : @amount : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat @sender : @amount : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == addReservesInternal ==
# sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_FUNCTION"; # string : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.activeOperations.contains(11), 'OP_NOT_ACTIVE') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : set nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_NOT_ACTIVE"; # string : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.remove(11) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 11; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == params.addAmount, 'CT_INVALID_MUTEZ') # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat address : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : mutez : nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INVALID_MUTEZ"; # string : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalReserves += params.addAmount # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat address : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 9; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
# == borrow ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, borrower = sp.sender, borrowAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), self.data.comptroller, entry_point='borrowAllowed').open_some()) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # address : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %borrowAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 175; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= params, 'CT_INSUFFICIENT_CASH') # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_CASH"; # string : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if False:
# sp.send(sp.sender, sp.mul(params, sp.mutez(1))) # list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT unit; # option (contract unit) : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 24; # int : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # nat : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @some : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : @some : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows) # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.principal = borrowBalance.value + params # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 168; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 12; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 2; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 169; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalBorrows += borrowBalance.value + params # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 7; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == borrowBalanceStored ==
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (contract nat) : pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result(borrowBalance.value)
# sp.transfer(__s1.value, sp.tez(0), sp.snd(params)) # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == exchangeRateStored ==
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result(excRate.value)
# sp.transfer(__s2.value, sp.tez(0), sp.snd(params)) # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getAccountSnapshot ==
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.fst(params)].accountBorrows) # @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # nat : pair nat nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DIG 2; # pair nat nat : nat : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : @some : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # @some : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result(sp.record(account = sp.fst(params), borrowBalance = borrowBalance.value, cTokenBalance = self.data.balances[sp.fst(params)].balance, exchangeRateMantissa = excRate.value)) # nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address (contract (pair (pair address nat) (pair nat nat))) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 358; # int : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:358 # @some : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (contract (pair (pair address nat) (pair nat nat))) : nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address nat : pair nat nat : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s3.value, sp.tez(0), sp.snd(params)) # pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair (pair address nat) (pair nat nat) : pair address (contract (pair (pair address nat) (pair nat nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract (pair (pair address nat) (pair nat nat))) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair address nat) (pair nat nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair address nat) (pair nat nat) : mutez : contract (pair (pair address nat) (pair nat nat)) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getAllowance ==
# sp.result(self.data.balances[sp.fst(params).owner].approvals[sp.fst(params).spender]) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair address address) (contract nat) : pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair address address) (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair address address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 340; # int : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:340 # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair address address) (contract nat) : map address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair address address) (contract nat) : pair (pair address address) (contract nat) : map address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair address address) (contract nat) : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair address address : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # address : map address nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option nat : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 340; # int : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:340 # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s4.value, sp.tez(0), sp.snd(params)) # @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair address address) (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair address address) (contract nat) : list operation : @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # @some : mutez : contract nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getBalance ==
# sp.result(self.data.balances[sp.fst(params)].balance) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (contract nat) : pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 295; # int : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:295 # @some : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s5.value, sp.tez(0), sp.snd(params)) # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getBalanceOfUnderlying ==
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{}; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.result((excRate.value * self.data.balances[sp.fst(params)].balance) // self.data.expScale) # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address (contract nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 312; # int : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:312 # @some : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # nat : nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 58; # int : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s6.value, sp.tez(0), sp.snd(params)) # nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair address (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair address (contract nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
# == getCash ==
# sp.result(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit))) # pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s7.value, sp.tez(0), sp.snd(params)) # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == getTotalSupply ==
# sp.result(self.data.totalSupply) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(__s8.value, sp.tez(0), sp.snd(params)) # nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair unit (contract nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair unit (contract nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : contract nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : contract nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
# == mint ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, minter = sp.sender, mintAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), self.data.comptroller, entry_point='mintAllowed').open_some()) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # address : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %mintAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 71; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == params, 'CT_INVALID_MUTEZ') # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : mutez : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INVALID_MUTEZ"; # string : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP 2; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - params, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount = sp.local("amount", 0)
# if True:
# sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value) # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount.value = compute_CToken_747.value
# self.data.totalSupply += amount.value # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 10; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].balance += amount.value # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 66; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 9; # nat : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == redeem ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some()) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # address : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %redeemAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 136; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# redeem_amount = sp.local("redeem_amount", 0) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if False:
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP 2; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount = sp.local("amount", 0)
# if False:
# compute_CToken_749 = sp.local("compute_CToken_749", (excRate.value * params) // self.data.expScale) # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 58; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount.value = compute_CToken_749.value
# redeem_amount.value = amount.value
# redeem_tokens = sp.local("redeem_tokens", 0)
# if False:
# redeem_tokens.value = params # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient supply"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 10; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 8; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 11; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:131 # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient balance"; # string : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if False:
# sp.send(sp.sender, sp.mul(redeem_amount.value, sp.mutez(1))) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT unit; # option (contract unit) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 24; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
# == redeemUnderlying ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, redeemer = sp.sender, redeemAmount = params), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, redeemAmount = sp.TNat, redeemer = sp.TAddress).layout(("cToken", ("redeemer", "redeemAmount"))), self.data.comptroller, entry_point='redeemAllowed').open_some()) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # address : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %redeemAllowed (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 136; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : nat : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair @sender nat) : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# redeem_amount = sp.local("redeem_amount", 0)
# if True:
# redeem_amount.value = params # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# redeem_tokens = sp.local("redeem_tokens", 0) # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if True:
# excRate = sp.local("excRate", self.data.initialExchangeRateMantissa) # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if self.data.totalSupply > 0: # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 7; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP 2; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.totalSupply > 0, 'DIVISION_BY_ZERO') # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# excRate.value = (sp.as_nat((sp.as_nat(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) - 0, message = 'SUBTRACTION_UNDERFLOW') + self.data.totalBorrows) - self.data.totalReserves) * self.data.expScale) // self.data.totalSupply # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 7; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 472; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 235; # int : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount = sp.local("amount", 0)
# if True:
# sp.verify(excRate.value > 0, 'DIVISION_BY_ZERO') # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "DIVISION_BY_ZERO"; # string : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_747 = sp.local("compute_CToken_747", (params * self.data.expScale) // excRate.value) # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 8; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# amount.value = compute_CToken_747.value
# redeem_tokens.value = amount.value
# sp.verify(sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)) >= redeem_amount.value, 'CT_INSUFFICIENT_CASH') # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_CASH"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalSupply = sp.as_nat(self.data.totalSupply - redeem_tokens.value, message = 'Insufficient supply') # nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 10; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient supply"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 10; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].balance = sp.as_nat(self.data.balances[sp.sender].balance - redeem_tokens.value, message = 'Insufficient balance') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 8; # nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 11; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 131; # int : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:131 # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "Insufficient balance"; # string : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if False:
# sp.send(sp.sender, sp.mul(redeem_amount.value, sp.mutez(1))) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT unit; # option (contract unit) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 24; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == reduceReserves ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # address : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(12) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 12; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(params, sp.amount, sp.self_entry_point('reduceReservesInternal')) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %reduceReservesInternal; # @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : @amount : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == repayBorrow ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = sp.sender, repayAmount = params), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some()) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # address : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %repayBorrowAllowed (pair address (pair address (pair address nat))); # option (contract (pair address (pair address (pair address nat)))) : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 225; # int : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @sender : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : @sender : nat : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 4; # pair @self (pair @sender (pair @sender nat)) : mutez : @some : list operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # list operation : pair @self (pair @sender (pair @sender nat)) : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair @self (pair @sender (pair @sender nat)) : mutez : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[sp.sender].accountBorrows) # @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair nat nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == sp.min(borrowBalance.value, params), 'CT_INVALID_MUTEZ') # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : mutez : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INVALID_MUTEZ"; # string : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 218; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 14; # nat : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # nat : nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 2; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender].accountBorrows.interestIndex = self.data.borrowIndex # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @sender : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 219; # int : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # pair nat nat : @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params), message = 'SUBTRACTION_UNDERFLOW') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 7; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
# == repayBorrowBehalf ==
# sp.verify(sp.sender != sp.self_address, 'CT_INTERNAL_CALL') # pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_CALL"; # string : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(sp.sender)): # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[sp.sender] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, payer = sp.sender, borrower = params.borrower, repayAmount = params.repayAmount), sp.tez(0), sp.contract(sp.TRecord(borrower = sp.TAddress, cToken = sp.TAddress, payer = sp.TAddress, repayAmount = sp.TNat).layout(("cToken", ("payer", ("borrower", "repayAmount")))), self.data.comptroller, entry_point='repayBorrowAllowed').open_some()) # pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # address : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %repayBorrowAllowed (pair address (pair address (pair address nat))); # option (contract (pair address (pair address (pair address nat)))) : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 225; # int : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address nat : pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : pair address nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address nat : nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address nat : pair address nat : nat : mutez : @some : list operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 6; # pair address nat : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : @sender : address : nat : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 4; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # list operation : pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair @self (pair @sender (pair address nat)) : mutez : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# compute_CToken_730 = sp.local("compute_CToken_730", sp.as_nat(sp.level - self.data.accrualBlockNumber, message = 'SUBTRACTION_UNDERFLOW')) # list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LEVEL; # @level : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(compute_CToken_730.value < self.data.accrualIntPeriodRelevance, 'CT_INTEREST_OLD') # @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # @some : nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LT; # bool : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_OLD"; # string : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.isAccrualInterestValid, 'CT_INTEREST_INVALID') # @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # bool : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTEREST_INVALID"; # string : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowSnapshot = sp.local("borrowSnapshot", self.data.balances[params.borrower].accountBorrows) # @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 442; # int : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:442 # @some : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance = sp.local("borrowBalance", 0) # pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if borrowSnapshot.value.principal > 0: # nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair nat nat : nat : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GT; # bool : nat : pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
DROP; # pair nat nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# borrowBalance.value = (borrowSnapshot.value.principal * self.data.borrowIndex) // borrowSnapshot.value.interestIndex # pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : pair nat nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 2; # pair nat nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MUL; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat nat) : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 446; # int : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
CAR; # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair nat nat : nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : @some : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.fst(sp.ediv(sp.amount, sp.mutez(1)).open_some(message = sp.unit)) == sp.min(borrowBalance.value, params.repayAmount), 'CT_INVALID_MUTEZ') # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair address nat : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
AMOUNT; # @amount : mutez : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : nat : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INVALID_MUTEZ"; # string : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.borrower].accountBorrows.principal = sp.as_nat(borrowBalance.value - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') # nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 218; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 14; # pair address nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # nat : nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 2; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.borrower].accountBorrows.interestIndex = self.data.borrowIndex # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # pair address nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 219; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair nat nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # pair nat nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 1; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.totalBorrows = sp.as_nat(self.data.totalBorrows - sp.min(borrowBalance.value, params.repayAmount), message = 'SUBTRACTION_UNDERFLOW') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # pair address nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # nat : nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # nat : nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
LE; # bool : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
SWAP; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH string "SUBTRACTION_UNDERFLOW"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 7; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.isAccrualInterestValid = False # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool False; # bool : option address : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair bool (option address) : address : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair bool (option address) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (pair bool (option address)) : pair nat nat : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair address (pair bool (option address)) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair nat (pair nat nat)) (pair nat (pair nat nat)) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == setAccrualIntPeriodRelevance ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # address : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.accrualIntPeriodRelevance = params # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 4; # nat : nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == setInterestRateModel ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # address : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : nat : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(9) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 9; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : address : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(params, sp.tez(0), sp.self_entry_point('setInterestRateModelInternal')) # list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setInterestRateModelInternal; # @self : list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # address : mutez : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == setReserveFactor ==
# sp.verify(sp.sender == self.data.administrator, 'CT_NOT_ADMIN') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # address : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_NOT_ADMIN"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(10) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 10; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('accrueInterest')) # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %accrueInterest; # @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(params, sp.tez(0), sp.self_entry_point('setReserveFactorInternal')) # list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setReserveFactorInternal; # @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # nat : mutez : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
IF_LEFT
{
# == sweepFA12 ==
# sp.transfer(sp.record(from_ = sp.self_address, to_ = self.data.administrator, value = params.amount), sp.tez(0), sp.contract(sp.TRecord(from_ = sp.TAddress, to_ = sp.TAddress, value = sp.TNat).layout(("from_ as from", ("to_ as to", "value"))), params.tokenAddress, entry_point='transfer').open_some()) # pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat address : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CDR; # address : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (pair address (pair address nat)); # option (contract (pair address (pair address nat))) : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 11; # int : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair nat address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair nat address : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # address : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : address : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair @self (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
# == sweepFA2 ==
# sp.transfer(sp.list([sp.record(from_ = sp.self_address, txs = sp.list([sp.record(to_ = self.data.administrator, token_id = params.id, amount = params.amount)]))]), sp.tez(0), sp.contract(sp.TList(sp.TRecord(from_ = sp.TAddress, txs = sp.TList(sp.TRecord(amount = sp.TNat, to_ = sp.TAddress, token_id = sp.TNat).layout(("to_", ("token_id", "amount"))))).layout(("from_", "txs"))), params.tokenAddress, entry_point='transfer').open_some()) # pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat (pair nat address) : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # address : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transfer (list (pair address (list (pair address (pair nat nat))))); # option (contract (list (pair address (list (pair address (pair nat nat)))))) : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 36; # int : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (list (pair address (pair nat nat)))); # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL (pair address (pair nat nat)); # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair nat (pair nat address) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 5; # pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair nat (pair nat address) : pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair nat (pair nat address) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat (pair nat address) : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 5; # address : nat : nat : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair address (pair nat nat) : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : list (pair address (pair nat nat)) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self (list (pair address (pair nat nat))) : list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list (pair address (list (pair address (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
PUSH string "CT_SWEEP_XTZ"; # string : bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# == transfer ==
# sp.verify((params.from_ == sp.sender) | (self.data.balances[params.from_].approvals[sp.sender] >= params.value), 'CT_TRANSFER_NOT_APPROVED') # pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : address : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
PUSH bool True; # bool : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DUP; # pair address (pair address nat) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:247 # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : map address nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option nat : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 247; # int : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:247 # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # bool : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_TRANSFER_NOT_APPROVED"; # string : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if ~ (self.data.balances.contains(params.to_)): # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
SWAP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.to_] = sp.record(accountBorrows = sp.record(interestIndex = 0, principal = 0), approvals = {}, balance = 0) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EMPTY_MAP address nat; # map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH (pair nat nat) (Pair 0 0); # pair nat nat : map address nat : nat : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR 3; # pair (pair nat nat) (pair (map address nat) nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 8; # pair address (pair address nat) : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(cToken = sp.self_address, src = params.from_, dst = params.to_, transferTokens = params.value), sp.tez(0), sp.contract(sp.TRecord(cToken = sp.TAddress, dst = sp.TAddress, src = sp.TAddress, transferTokens = sp.TNat).layout((("cToken", "src"), ("dst", "transferTokens"))), self.data.comptroller, entry_point='transferAllowed').open_some()) # pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # address : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %transferAllowed (pair (pair address address) (pair address nat)); # option (contract (pair (pair address address) (pair address nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 261; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 3; # pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : pair address (pair address nat) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 5; # pair address (pair address nat) : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 5; # pair address (pair address nat) : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self address : pair address nat : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair @self address) (pair address nat) : mutez : @some : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.balances[params.from_].balance >= params.value, 'CT_INSUFFICIENT_BALANCE') # pair address (pair address nat) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair address (pair address nat) : pair address (pair address nat) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair address (pair address nat) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 253; # int : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:253 # @some : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GE; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INSUFFICIENT_BALANCE"; # string : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.from_].balance = sp.as_nat(self.data.balances[params.from_].balance - params.value) # list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 254; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 10; # pair address (pair address nat) : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 11; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 12; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 254; # int : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:254 # @some : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 254; # int : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.balances[params.to_].balance += params.value # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 255; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # pair address (pair address nat) : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ADD; # nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 4; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# if params.from_ != sp.sender: # list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair address (pair address nat) : @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : @sender : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NEQ; # bool : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{
# self.data.balances[params.from_].approvals[sp.sender] = sp.as_nat(self.data.balances[params.from_].approvals[sp.sender] - params.value) # list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 3; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 9; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # address : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # @some : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 11; # pair address (pair address nat) : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 4; # nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 6; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : pair address (pair address nat) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DIG 12; # pair address (pair address nat) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option (pair (pair nat nat) (pair (map address nat) nat)) : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:257 # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # map address nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : map address nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET; # option nat : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{
# of_some: Get-item:257 # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # @some : nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SUB; # int : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ISNAT; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 257; # int : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : option nat : map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # map address nat : @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE 3; # @some : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SOME; # option (pair (pair nat nat) (pair (map address nat) nat)) : address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : option (pair (pair nat nat) (pair (map address nat) nat)) : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # big_map address (pair (pair nat nat) (pair (map address nat) nat)) : address : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # address : big_map address (pair (pair nat nat) (pair (map address nat) nat)) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : set nat : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : list operation : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
SWAP; # pair address (pair address nat) : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DROP; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
IF_LEFT
{
DROP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateBorrowRateInternal ==
# sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_FUNCTION"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.activeOperations.contains(6), 'OP_NOT_ACTIVE') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 6; # nat : set nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_NOT_ACTIVE"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), cb = sp.self_entry_point('setBorrowRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getBorrowRate').open_some()) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %getBorrowRate (pair (pair nat nat) (pair (contract nat) nat)); # option (contract (pair (pair nat nat) (pair (contract nat) nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 382; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setBorrowRatePerBlock; # @self : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair @self nat) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateBorrowRatePerBlock ==
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(6) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 6; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateBorrowRateInternal')) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %updateBorrowRateInternal; # @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
IF_LEFT
{
DROP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateSupplyRateInternal ==
# sp.verify(sp.sender == sp.self_address, 'CT_INTERNAL_FUNCTION') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF_ADDRESS; # @self : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SENDER; # @sender : @self : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "CT_INTERNAL_FUNCTION"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.verify(self.data.activeOperations.contains(7), 'OP_NOT_ACTIVE') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 7; # nat : set nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
MEM; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_NOT_ACTIVE"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.record(borrows = self.data.totalBorrows, cash = sp.fst(sp.ediv(sp.balance, sp.mutez(1)).open_some(message = sp.unit)), cb = sp.self_entry_point('setSupplyRatePerBlock'), reserves = self.data.totalReserves), sp.tez(0), sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), self.data.interestRateModel, entry_point='getSupplyRate').open_some()) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # pair (pair nat nat) (pair address (pair bool (option address))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # address : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONTRACT %getSupplyRate (pair (pair nat nat) (pair (contract nat) nat)); # option (contract (pair (pair nat nat) (pair (contract nat) nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
PUSH int 413; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : @some : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 4; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 9; # nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %setSupplyRatePerBlock; # @self : nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 1; # mutez : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
BALANCE; # @balance : mutez : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EDIV; # option (pair nat mutez) : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF_NONE
{
UNIT; # unit : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}
{}; # @some : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP 6; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 7; # nat : nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair nat nat : pair @self nat : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair @self nat) : mutez : @some : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}
{
DROP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# == updateSupplyRatePerBlock ==
# sp.verify(sp.len(self.data.activeOperations) == 0, 'OP_IN_PROGRESS') # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUP; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CAR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
GET 3; # set nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SIZE; # nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 0; # nat : nat : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
COMPARE; # int : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
EQ; # bool : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
IF
{}
{
PUSH string "OP_IN_PROGRESS"; # string : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
FAILWITH; # FAILED
}; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# self.data.activeOperations.add(7) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNPAIR; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH bool True; # bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH nat 7; # nat : bool : set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UPDATE; # set nat : pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair nat nat : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # pair nat nat : pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat))))) : pair (pair nat nat) (pair nat (pair address nat)) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat))) : pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PAIR; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
# sp.transfer(sp.unit, sp.tez(0), sp.self_entry_point('updateSupplyRateInternal')) # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SELF %updateSupplyRateInternal; # @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
PUSH mutez 0; # mutez : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
UNIT; # unit : mutez : @self : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
TRANSFER_TOKENS; # operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
NIL operation; # list operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
SWAP; # list operation : list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
ITER
{
CONS; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
}; # list operation : pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))
DUG 2; # pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))) : big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))) : list operation
PAIR; # pair (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))) : list operation
SWAP; # list operation : pair (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))))))
PAIR; # pair (list operation) (pair (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat))))) (big_map nat (lambda (pair (or (or (or unit (or (pair address nat) nat)) (or unit (or nat unit))) (or (or nat (or address address)) (or address (or nat nat)))) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))) (pair (list operation) (pair (pair (pair (pair nat nat) (pair (set nat) (pair address (big_map address (pair (pair nat nat) (pair (map address nat) nat)))))) (pair (pair nat nat) (pair nat (pair address nat)))) (pair (pair (pair nat nat) (pair address (pair bool (option address)))) (pair (pair nat (pair nat nat)) (pair nat (pair nat nat)))))))))
};
Initial Storage
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "5" } ] },
{ "prim": "Pair", "args": [ [], { "prim": "Pair", "args": [ { "string": "tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5" }, [] ] } ] }
]
},
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "int": "5000000000000" } ] },
{
"prim": "Pair",
"args": [ { "int": "0" }, { "prim": "Pair", "args": [ { "string": "KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1" }, { "int": "1000000000000000000" } ] } ]
}
]
}
]
},
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "500000000000000000" }, { "int": "1000000000000000000" } ] },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF" }, { "prim": "Pair", "args": [ { "prim": "False" }, { "prim": "None" } ] } ] }
]
},
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "int": "0" } ] } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }
]
}
]
}
]
},
[
{
"prim": "Elt",
"args": [
{ "int": "0" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_SET_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DUP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "593" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "NONE", "args": [ { "prim": "address" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "1" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "281" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ], [] ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[ { "prim": "DUP" }, { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "COMPARE" }, { "prim": "EQ" } ]
]
},
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_UNSAFE_ALLOWANCE_CHANGE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "283" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "CDR" },
{ "prim": "SOME" },
{ "prim": "DIG", "args": [ { "int": "10" } ] },
{ "prim": "CAR" },
{ "prim": "UPDATE" },
{ "prim": "UPDATE", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "2" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_BORROW_RATE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "543" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "MUL" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "DUP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "9" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "7" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] },
{ "prim": "ADD" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "LEVEL" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "3" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "EMPTY_SET", "args": [ { "prim": "nat" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "4" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_REDUCE_AMOUNT" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "UPDATE", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "CONTRACT", "args": [ { "prim": "unit" } ], "annots": [ "%receive" ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "bad contract destination" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "MUL" },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "5" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "DROP" } ] ]
}
]
]
}
]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "NONE", "args": [ { "prim": "address" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "6" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "7" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "8" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "9" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "10" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
]
]
}
]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_RESERVE_FACTOR" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "11" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ]
]
}
]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
}
]
]
}
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "5" } ] },
{ "prim": "Pair", "args": [ [], { "prim": "Pair", "args": [ { "string": "tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5" }, [] ] } ] }
]
},
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "int": "5000000000000" } ] },
{
"prim": "Pair",
"args": [ { "int": "0" }, { "prim": "Pair", "args": [ { "string": "KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1" }, { "int": "1000000000000000000" } ] } ]
}
]
}
]
},
{
"prim": "Pair",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "500000000000000000" }, { "int": "1000000000000000000" } ] },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF" }, { "prim": "Pair", "args": [ { "prim": "False" }, { "prim": "None" } ] } ] }
]
},
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "prim": "Pair", "args": [ { "int": "1000000000000000000" }, { "int": "0" } ] } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] } ] }
]
}
]
}
]
},
[
{
"prim": "Elt",
"args": [
{ "int": "0" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_SET_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_PENDING_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "DUP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "593" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "NONE", "args": [ { "prim": "address" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "1" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "281" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ], [] ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[ { "prim": "DUP" }, { "prim": "CDR" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] }, { "prim": "COMPARE" }, { "prim": "EQ" } ]
]
},
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_UNSAFE_ALLOWANCE_CHANGE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "283" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "CDR" },
{ "prim": "SOME" },
{ "prim": "DIG", "args": [ { "int": "10" } ] },
{ "prim": "CAR" },
{ "prim": "UPDATE" },
{ "prim": "UPDATE", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "2" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_BORROW_RATE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "543" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "MUL" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "DUP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "9" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "7" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "7" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ] },
{ "prim": "ADD" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "LEVEL" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "3" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "DROP" } ], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "EMPTY_SET", "args": [ { "prim": "nat" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "4" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_REDUCE_AMOUNT" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "UPDATE", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "CONTRACT", "args": [ { "prim": "unit" } ], "annots": [ "%receive" ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "bad contract destination" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "MUL" },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "5" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "DROP" } ] ]
}
]
]
}
]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "NONE", "args": [ { "prim": "address" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "6" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "7" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "8" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ]
]
}
],
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ]
]
}
]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "9" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "10" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ] ] } ]
]
}
]
]
}
]
]
},
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_RESERVE_FACTOR" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
},
{
"prim": "Elt",
"args": [
{ "int": "11" },
[
{ "prim": "UNPAIR" },
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "IF_LEFT", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] } ]
]
}
]
]
}
]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SENDER_NOT_IRM" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "MEM" },
{ "prim": "IF", "args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ] },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "PAIR" }
]
]
}
]
]
}
JSON Representation
[
{
"prim": "storage",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%accrualBlockNumber" ] }, { "prim": "nat", "annots": [ "%accrualIntPeriodRelevance" ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "set", "args": [ { "prim": "nat" } ], "annots": [ "%activeOperations" ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%administrator" ] },
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%interestIndex" ] }, { "prim": "nat", "annots": [ "%principal" ] } ],
"annots": [ "%accountBorrows" ]
},
{
"prim": "pair",
"args": [
{ "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ], "annots": [ "%approvals" ] },
{ "prim": "nat", "annots": [ "%balance" ] }
]
}
]
}
],
"annots": [ "%balances" ]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrowIndex" ] }, { "prim": "nat", "annots": [ "%borrowRateMaxMantissa" ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%borrowRatePerBlock" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%comptroller" ] }, { "prim": "nat", "annots": [ "%expScale" ] } ] }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%halfExpScale" ] }, { "prim": "nat", "annots": [ "%initialExchangeRateMantissa" ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%interestRateModel" ] },
{
"prim": "pair",
"args": [
{ "prim": "bool", "annots": [ "%isAccrualInterestValid" ] },
{ "prim": "option", "args": [ { "prim": "address" } ], "annots": [ "%pendingAdministrator" ] }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%reserveFactorMantissa" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%reserveFactorMaxMantissa" ] }, { "prim": "nat", "annots": [ "%supplyRatePerBlock" ] } ] }
]
},
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%totalBorrows" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%totalReserves" ] }, { "prim": "nat", "annots": [ "%totalSupply" ] } ] }
]
}
]
}
]
}
]
},
{
"prim": "big_map",
"args": [
{ "prim": "nat" },
{
"prim": "lambda",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "unit" } ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] } ] },
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "set", "args": [ { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "option", "args": [ { "prim": "address" } ] } ] } ]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "operation" } ] },
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "set", "args": [ { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "option", "args": [ { "prim": "address" } ] } ] } ]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "parameter",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%acceptGovernance" ] },
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%spender" ] }, { "prim": "nat", "annots": [ "%value" ] } ], "annots": [ "%approve" ] },
{ "prim": "nat", "annots": [ "%doAccrueInterest" ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%hardResetOp" ] },
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%reduceReservesInternal" ] }, { "prim": "unit", "annots": [ "%removePendingGovernance" ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%setBorrowRatePerBlock" ] },
{ "prim": "or", "args": [ { "prim": "address", "annots": [ "%setComptroller" ] }, { "prim": "address", "annots": [ "%setInterestRateModelInternal" ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "address", "annots": [ "%setPendingGovernance" ] },
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%setReserveFactorInternal" ] }, { "prim": "nat", "annots": [ "%setSupplyRatePerBlock" ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%accrueInterest" ] },
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%addReserves" ] },
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%addAmount" ] }, { "prim": "address", "annots": [ "%originalSender" ] } ],
"annots": [ "%addReservesInternal" ]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%borrow" ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%borrowBalanceStored" ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%exchangeRateStored" ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "contract",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] },
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ]
}
]
}
]
}
],
"annots": [ "%getAccountSnapshot" ]
}
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%owner" ] }, { "prim": "address", "annots": [ "%spender" ] } ] },
{ "prim": "contract", "args": [ { "prim": "nat" } ] }
],
"annots": [ "%getAllowance" ]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getBalance" ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getBalanceOfUnderlying" ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getCash" ] },
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getTotalSupply" ] }
]
},
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%mint" ] }, { "prim": "nat", "annots": [ "%redeem" ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%redeemUnderlying" ] },
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%reduceReserves" ] }, { "prim": "nat", "annots": [ "%repayBorrow" ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%repayAmount" ] } ],
"annots": [ "%repayBorrowBehalf" ]
},
{ "prim": "nat", "annots": [ "%setAccrualIntPeriodRelevance" ] }
]
},
{ "prim": "or", "args": [ { "prim": "address", "annots": [ "%setInterestRateModel" ] }, { "prim": "nat", "annots": [ "%setReserveFactor" ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%amount" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ],
"annots": [ "%sweepFA12" ]
},
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%amount" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%id" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ] }
],
"annots": [ "%sweepFA2" ]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "bool", "annots": [ "%sweepMutez" ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%from" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%to" ] }, { "prim": "nat", "annots": [ "%value" ] } ] }
],
"annots": [ "%transfer" ]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [ { "prim": "unit", "annots": [ "%updateBorrowRateInternal" ] }, { "prim": "unit", "annots": [ "%updateBorrowRatePerBlock" ] } ]
},
{
"prim": "or",
"args": [ { "prim": "unit", "annots": [ "%updateSupplyRateInternal" ] }, { "prim": "unit", "annots": [ "%updateSupplyRatePerBlock" ] } ]
}
]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "unit" } ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] } ] },
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] } ]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "contract",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "contract", "args": [ { "prim": "nat" } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] }
]
},
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] },
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "nat" } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "bool" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] },
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "set", "args": [ { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "option", "args": [ { "prim": "address" } ] } ] } ]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "big_map",
"args": [
{ "prim": "nat" },
{
"prim": "lambda",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "unit" } ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] } ] },
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "set", "args": [ { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "option", "args": [ { "prim": "address" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "operation" } ] },
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "set", "args": [ { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "option", "args": [ { "prim": "address" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
}
]
}
]
}
]
}
]
}
]
},
{ "prim": "UNPAIR", "args": [ { "int": "3" } ] },
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DUP" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "2" } ] } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "3" } ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "4" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "5" } ] } ]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] } ]
]
}
]
]
}
]
]
}
]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PAIR" },
{ "prim": "EXEC" },
{ "prim": "UNPAIR" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "LEVEL" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" }
],
[]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [
[
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%getBorrowRate" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "526" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SELF", "annots": [ "%doAccrueInterest" ] },
{ "prim": "PAIR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[ { "prim": "NIL", "args": [ { "prim": "operation" } ] } ]
]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%addReservesInternal" ] },
{ "prim": "AMOUNT" },
{ "prim": "SENDER" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "AMOUNT" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_MUTEZ" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "9" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%borrowAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "175" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "SENDER" },
{ "prim": "CONTRACT", "args": [ { "prim": "unit" } ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "24" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "MUL" },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "168" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "12" } ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "2" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "169" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "ADD" },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DROP" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DROP" }
]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "358" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "340" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "340" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "295" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "312" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%mintAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "71" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "AMOUNT" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_MUTEZ" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "10" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "66" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "9" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%redeemAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "136" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient supply" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "UPDATE", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DIG", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "11" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient balance" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "SENDER" },
{ "prim": "CONTRACT", "args": [ { "prim": "unit" } ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "24" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "MUL" },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
}
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{
"prim": "CONTRACT",
"args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } ],
"annots": [ "%redeemAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "136" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient supply" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "UPDATE", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DIG", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "11" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient balance" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "SENDER" },
{ "prim": "CONTRACT", "args": [ { "prim": "unit" } ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "24" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "MUL" },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%reduceReservesInternal" ] },
{ "prim": "AMOUNT" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
],
"annots": [ "%repayBorrowAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "225" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DROP" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "AMOUNT" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_MUTEZ" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "218" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "14" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "2" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "219" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
],
"annots": [ "%repayBorrowAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "225" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DUP" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DROP" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CDR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "AMOUNT" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_MUTEZ" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "218" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "14" } ] },
{ "prim": "CDR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "2" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "219" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "CDR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%setInterestRateModelInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%setReserveFactorInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DUP" },
{ "prim": "CDR" },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "11" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "SWAP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SWEEP_XTZ" } ] }, { "prim": "FAILWITH" } ],
[
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "COMPARE" },
{ "prim": "GE" }
]
]
},
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_TRANSFER_NOT_APPROVED" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%transferAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "261" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PAIR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "253" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_BALANCE" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "254" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "11" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "254" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "254" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "255" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SENDER" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [
[
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "UPDATE", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%getBorrowRate" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "382" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SELF", "annots": [ "%setBorrowRatePerBlock" ] },
{ "prim": "PAIR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SIZE" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%updateBorrowRateInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%getSupplyRate" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "413" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SELF", "annots": [ "%setSupplyRatePerBlock" ] },
{ "prim": "PAIR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SIZE" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%updateSupplyRateInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
]
]
}
]
]
}
]
]
}
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "ITER", "args": [ [ { "prim": "CONS" } ] ] },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" }
]
]
}
]
{
"prim": "storage",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%accrualBlockNumber" ] }, { "prim": "nat", "annots": [ "%accrualIntPeriodRelevance" ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "set", "args": [ { "prim": "nat" } ], "annots": [ "%activeOperations" ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%administrator" ] },
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%interestIndex" ] }, { "prim": "nat", "annots": [ "%principal" ] } ],
"annots": [ "%accountBorrows" ]
},
{
"prim": "pair",
"args": [
{ "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ], "annots": [ "%approvals" ] },
{ "prim": "nat", "annots": [ "%balance" ] }
]
}
]
}
],
"annots": [ "%balances" ]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%borrowIndex" ] }, { "prim": "nat", "annots": [ "%borrowRateMaxMantissa" ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%borrowRatePerBlock" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%comptroller" ] }, { "prim": "nat", "annots": [ "%expScale" ] } ] }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%halfExpScale" ] }, { "prim": "nat", "annots": [ "%initialExchangeRateMantissa" ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%interestRateModel" ] },
{
"prim": "pair",
"args": [
{ "prim": "bool", "annots": [ "%isAccrualInterestValid" ] },
{ "prim": "option", "args": [ { "prim": "address" } ], "annots": [ "%pendingAdministrator" ] }
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%reserveFactorMantissa" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%reserveFactorMaxMantissa" ] }, { "prim": "nat", "annots": [ "%supplyRatePerBlock" ] } ] }
]
},
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%totalBorrows" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%totalReserves" ] }, { "prim": "nat", "annots": [ "%totalSupply" ] } ] }
]
}
]
}
]
}
]
},
{
"prim": "big_map",
"args": [
{ "prim": "nat" },
{
"prim": "lambda",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "unit" } ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] } ] },
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "set", "args": [ { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "option", "args": [ { "prim": "address" } ] } ] } ]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "operation" } ] },
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "set", "args": [ { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "option", "args": [ { "prim": "address" } ] } ] } ]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "parameter",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%acceptGovernance" ] },
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%spender" ] }, { "prim": "nat", "annots": [ "%value" ] } ], "annots": [ "%approve" ] },
{ "prim": "nat", "annots": [ "%doAccrueInterest" ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%hardResetOp" ] },
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%reduceReservesInternal" ] }, { "prim": "unit", "annots": [ "%removePendingGovernance" ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%setBorrowRatePerBlock" ] },
{ "prim": "or", "args": [ { "prim": "address", "annots": [ "%setComptroller" ] }, { "prim": "address", "annots": [ "%setInterestRateModelInternal" ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "address", "annots": [ "%setPendingGovernance" ] },
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%setReserveFactorInternal" ] }, { "prim": "nat", "annots": [ "%setSupplyRatePerBlock" ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit", "annots": [ "%accrueInterest" ] },
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%addReserves" ] },
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%addAmount" ] }, { "prim": "address", "annots": [ "%originalSender" ] } ],
"annots": [ "%addReservesInternal" ]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%borrow" ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%borrowBalanceStored" ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%exchangeRateStored" ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "contract",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%account" ] }, { "prim": "nat", "annots": [ "%borrowBalance" ] } ] },
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%cTokenBalance" ] }, { "prim": "nat", "annots": [ "%exchangeRateMantissa" ] } ]
}
]
}
]
}
],
"annots": [ "%getAccountSnapshot" ]
}
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%owner" ] }, { "prim": "address", "annots": [ "%spender" ] } ] },
{ "prim": "contract", "args": [ { "prim": "nat" } ] }
],
"annots": [ "%getAllowance" ]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getBalance" ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getBalanceOfUnderlying" ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getCash" ] },
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ], "annots": [ "%getTotalSupply" ] }
]
},
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%mint" ] }, { "prim": "nat", "annots": [ "%redeem" ] } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "nat", "annots": [ "%redeemUnderlying" ] },
{ "prim": "or", "args": [ { "prim": "nat", "annots": [ "%reduceReserves" ] }, { "prim": "nat", "annots": [ "%repayBorrow" ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address", "annots": [ "%borrower" ] }, { "prim": "nat", "annots": [ "%repayAmount" ] } ],
"annots": [ "%repayBorrowBehalf" ]
},
{ "prim": "nat", "annots": [ "%setAccrualIntPeriodRelevance" ] }
]
},
{ "prim": "or", "args": [ { "prim": "address", "annots": [ "%setInterestRateModel" ] }, { "prim": "nat", "annots": [ "%setReserveFactor" ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [ { "prim": "nat", "annots": [ "%amount" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ],
"annots": [ "%sweepFA12" ]
},
{
"prim": "pair",
"args": [
{ "prim": "nat", "annots": [ "%amount" ] },
{ "prim": "pair", "args": [ { "prim": "nat", "annots": [ "%id" ] }, { "prim": "address", "annots": [ "%tokenAddress" ] } ] }
],
"annots": [ "%sweepFA2" ]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "bool", "annots": [ "%sweepMutez" ] },
{
"prim": "pair",
"args": [
{ "prim": "address", "annots": [ "%from" ] },
{ "prim": "pair", "args": [ { "prim": "address", "annots": [ "%to" ] }, { "prim": "nat", "annots": [ "%value" ] } ] }
],
"annots": [ "%transfer" ]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [ { "prim": "unit", "annots": [ "%updateBorrowRateInternal" ] }, { "prim": "unit", "annots": [ "%updateBorrowRatePerBlock" ] } ]
},
{
"prim": "or",
"args": [ { "prim": "unit", "annots": [ "%updateSupplyRateInternal" ] }, { "prim": "unit", "annots": [ "%updateSupplyRatePerBlock" ] } ]
}
]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "code",
"args": [
[
{
"prim": "CAST",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "unit" } ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] } ] },
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] } ]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "contract",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "contract", "args": [ { "prim": "nat" } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "unit" }, { "prim": "contract", "args": [ { "prim": "nat" } ] } ] }
]
},
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] }
]
}
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] },
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "nat" } ] }
]
}
]
},
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "address" } ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "bool" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] },
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "unit" } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "set", "args": [ { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "option", "args": [ { "prim": "address" } ] } ] } ]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "big_map",
"args": [
{ "prim": "nat" },
{
"prim": "lambda",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{
"prim": "or",
"args": [
{ "prim": "unit" },
{ "prim": "or", "args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
},
{ "prim": "or", "args": [ { "prim": "unit" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "unit" } ] } ] }
]
},
{
"prim": "or",
"args": [
{ "prim": "or", "args": [ { "prim": "nat" }, { "prim": "or", "args": [ { "prim": "address" }, { "prim": "address" } ] } ] },
{ "prim": "or", "args": [ { "prim": "address" }, { "prim": "or", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "set", "args": [ { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "option", "args": [ { "prim": "address" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "list", "args": [ { "prim": "operation" } ] },
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "set", "args": [ { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "big_map",
"args": [
{ "prim": "address" },
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [ { "prim": "map", "args": [ { "prim": "address" }, { "prim": "nat" } ] }, { "prim": "nat" } ]
}
]
}
]
}
]
}
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "bool" }, { "prim": "option", "args": [ { "prim": "address" } ] } ] }
]
}
]
},
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] },
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
}
]
}
]
}
]
}
]
}
]
}
]
},
{ "prim": "UNPAIR", "args": [ { "int": "3" } ] },
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DUP" },
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "1" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "2" } ] } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "3" } ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "4" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "5" } ] } ]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] } ]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] } ],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] } ],
[ { "prim": "DROP" }, { "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] } ]
]
}
]
]
}
]
]
}
]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "-1" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PAIR" },
{ "prim": "EXEC" },
{ "prim": "UNPAIR" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "CDR" },
{ "prim": "LEVEL" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" }
],
[]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [
[
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "8" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%getBorrowRate" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "526" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SELF", "annots": [ "%doAccrueInterest" ] },
{ "prim": "PAIR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[ { "prim": "NIL", "args": [ { "prim": "operation" } ] } ]
]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%addReservesInternal" ] },
{ "prim": "AMOUNT" },
{ "prim": "SENDER" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "11" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "AMOUNT" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_MUTEZ" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "9" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%borrowAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "175" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "SENDER" },
{ "prim": "CONTRACT", "args": [ { "prim": "unit" } ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "24" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "MUL" },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "168" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "12" } ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "2" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "169" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "ADD" },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DROP" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DROP" }
]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "358" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "340" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "340" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "295" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "312" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%mintAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "71" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "AMOUNT" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_MUTEZ" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "10" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "66" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "9" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%redeemAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "136" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "58" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient supply" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "UPDATE", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DIG", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "11" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient balance" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "SENDER" },
{ "prim": "CONTRACT", "args": [ { "prim": "unit" } ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "24" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "MUL" },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
}
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{
"prim": "CONTRACT",
"args": [ { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] } ],
"annots": [ "%redeemAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "136" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "7" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "ADD" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "472" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "235" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "DIVISION_BY_ZERO" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [ { "prim": "CAR" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_CASH" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "10" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient supply" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "UPDATE", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DIG", "args": [ { "int": "8" } ] },
{ "prim": "DIG", "args": [ { "int": "11" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "131" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "Insufficient balance" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SWAP" },
{ "prim": "SENDER" },
{ "prim": "CONTRACT", "args": [ { "prim": "unit" } ] },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "24" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "MUL" },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "12" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%reduceReservesInternal" ] },
{ "prim": "AMOUNT" },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
],
"annots": [ "%repayBorrowAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "225" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DROP" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "AMOUNT" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_MUTEZ" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "218" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "14" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "2" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "SENDER" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "219" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_CALL" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SENDER" },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
]
}
],
"annots": [ "%repayBorrowAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "225" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DUP" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "6" } ] },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "DROP" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "LEVEL" },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "CDR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LT" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_OLD" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTEREST_INVALID" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "442" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CDR" },
{ "prim": "COMPARE" },
{ "prim": "GT" },
{
"prim": "IF",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SWAP" },
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "2" } ] },
{ "prim": "CDR" },
{ "prim": "MUL" },
{ "prim": "EDIV" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "446" } ] }, { "prim": "FAILWITH" } ],
[ { "prim": "CAR" } ]
]
}
],
[ { "prim": "SWAP" }, { "prim": "DROP" }, { "prim": "SWAP" }, { "prim": "DROP" } ]
]
},
{ "prim": "DUP" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CDR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "AMOUNT" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INVALID_MUTEZ" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "218" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "14" } ] },
{ "prim": "CDR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "2" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "219" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "UPDATE", "args": [ { "int": "1" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "CDR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "COMPARE" },
{ "prim": "LE" },
{ "prim": "IF", "args": [ [ { "prim": "SWAP" }, { "prim": "DROP" } ], [ { "prim": "DROP" } ] ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "SUBTRACTION_UNDERFLOW" } ] }, { "prim": "FAILWITH" } ],
[]
]
},
{ "prim": "UPDATE", "args": [ { "int": "7" } ] },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "CDR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "False" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "CAR" },
{ "prim": "DIG", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "9" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%setInterestRateModelInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_NOT_ADMIN" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SIZE" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "10" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%accrueInterest" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SELF", "annots": [ "%setReserveFactorInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DUP" },
{ "prim": "CDR" },
{
"prim": "CONTRACT",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] } ] }
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "11" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{
"prim": "pair",
"args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ]
}
]
}
]
}
]
}
],
"annots": [ "%transfer" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "36" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{
"prim": "NIL",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "address" },
{
"prim": "list",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
}
]
}
]
},
{
"prim": "NIL",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] } ] }
]
},
{ "prim": "DIG", "args": [ { "int": "5" } ] },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "SWAP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "5" } ] },
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "CONS" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "CONS" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_SWEEP_XTZ" } ] }, { "prim": "FAILWITH" } ],
[
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[ { "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] } ],
[
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "247" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "COMPARE" },
{ "prim": "GE" }
]
]
},
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_TRANSFER_NOT_APPROVED" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [
[],
[
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "EMPTY_MAP", "args": [ { "prim": "address" }, { "prim": "nat" } ] },
{
"prim": "PUSH",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "0" } ] }
]
},
{ "prim": "PAIR", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "DUP", "args": [ { "int": "8" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "address" } ] },
{ "prim": "pair", "args": [ { "prim": "address" }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%transferAllowed" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "261" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DIG", "args": [ { "int": "3" } ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "5" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PAIR" },
{ "prim": "DUP", "args": [ { "int": "5" } ] },
{ "prim": "CAR" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "253" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "COMPARE" },
{ "prim": "GE" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INSUFFICIENT_BALANCE" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "254" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP", "args": [ { "int": "10" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "11" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DUP", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "254" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "254" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "255" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "ADD" },
{ "prim": "UPDATE", "args": [ { "int": "4" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "SENDER" },
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "CAR" },
{ "prim": "COMPARE" },
{ "prim": "NEQ" },
{
"prim": "IF",
"args": [
[
{ "prim": "DUP", "args": [ { "int": "3" } ] },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "DUP" },
{ "prim": "DUP", "args": [ { "int": "9" } ] },
{ "prim": "CAR" },
{ "prim": "DUP" },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "DUP", "args": [ { "int": "11" } ] },
{ "prim": "GET", "args": [ { "int": "4" } ] },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "6" } ] },
{ "prim": "DIG", "args": [ { "int": "12" } ] },
{ "prim": "CAR" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SENDER" },
{ "prim": "GET" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "SUB" },
{ "prim": "ISNAT" },
{
"prim": "IF_NONE",
"args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "257" } ] }, { "prim": "FAILWITH" } ], [] ]
},
{ "prim": "SOME" },
{ "prim": "SENDER" },
{ "prim": "UPDATE" },
{ "prim": "UPDATE", "args": [ { "int": "3" } ] },
{ "prim": "SOME" },
{ "prim": "SWAP" },
{ "prim": "UPDATE" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "SWAP" }
],
[ { "prim": "SWAP" }, { "prim": "DROP" } ]
]
}
]
]
}
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%getBorrowRate" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "382" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SELF", "annots": [ "%setBorrowRatePerBlock" ] },
{ "prim": "PAIR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SIZE" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "6" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%updateBorrowRateInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
],
[
{
"prim": "IF_LEFT",
"args": [
[
{ "prim": "DROP" },
{ "prim": "SELF_ADDRESS" },
{ "prim": "SENDER" },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [
[],
[ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "CT_INTERNAL_FUNCTION" } ] }, { "prim": "FAILWITH" } ]
]
},
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "MEM" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_NOT_ACTIVE" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "DUP" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{
"prim": "CONTRACT",
"args": [
{
"prim": "pair",
"args": [
{ "prim": "pair", "args": [ { "prim": "nat" }, { "prim": "nat" } ] },
{ "prim": "pair", "args": [ { "prim": "contract", "args": [ { "prim": "nat" } ] }, { "prim": "nat" } ] }
]
}
],
"annots": [ "%getSupplyRate" ]
},
{ "prim": "IF_NONE", "args": [ [ { "prim": "PUSH", "args": [ { "prim": "int" }, { "int": "413" } ] }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "DUP", "args": [ { "int": "4" } ] },
{ "prim": "GET", "args": [ { "int": "9" } ] },
{ "prim": "SELF", "annots": [ "%setSupplyRatePerBlock" ] },
{ "prim": "PAIR" },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "1" } ] },
{ "prim": "BALANCE" },
{ "prim": "EDIV" },
{ "prim": "IF_NONE", "args": [ [ { "prim": "UNIT" }, { "prim": "FAILWITH" } ], [] ] },
{ "prim": "CAR" },
{ "prim": "DUP", "args": [ { "int": "6" } ] },
{ "prim": "GET", "args": [ { "int": "7" } ] },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
],
[
{ "prim": "DROP" },
{ "prim": "DUP" },
{ "prim": "CAR" },
{ "prim": "CAR" },
{ "prim": "GET", "args": [ { "int": "3" } ] },
{ "prim": "SIZE" },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "0" } ] },
{ "prim": "COMPARE" },
{ "prim": "EQ" },
{
"prim": "IF",
"args": [ [], [ { "prim": "PUSH", "args": [ { "prim": "string" }, { "string": "OP_IN_PROGRESS" } ] }, { "prim": "FAILWITH" } ] ]
},
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "UNPAIR" },
{ "prim": "SWAP" },
{ "prim": "UNPAIR" },
{ "prim": "PUSH", "args": [ { "prim": "bool" }, { "prim": "True" } ] },
{ "prim": "PUSH", "args": [ { "prim": "nat" }, { "int": "7" } ] },
{ "prim": "UPDATE" },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "PAIR" },
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SELF", "annots": [ "%updateSupplyRateInternal" ] },
{ "prim": "PUSH", "args": [ { "prim": "mutez" }, { "int": "0" } ] },
{ "prim": "UNIT" },
{ "prim": "TRANSFER_TOKENS" },
{ "prim": "CONS" }
]
]
}
]
]
}
]
]
}
]
]
}
]
]
}
]
]
},
{ "prim": "NIL", "args": [ { "prim": "operation" } ] },
{ "prim": "SWAP" },
{ "prim": "ITER", "args": [ [ { "prim": "CONS" } ] ] },
{ "prim": "DUG", "args": [ { "int": "2" } ] },
{ "prim": "PAIR" },
{ "prim": "SWAP" },
{ "prim": "PAIR" }
]
]
}
]
mint + transferIn
first mint
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
Balance: 0.000000
Operations:
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | ExpScale | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TotalBorrows | TotalReserves | TotalSupply | ||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Left (Left (Left (Right Unit)))))
{ "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Unit" } ] } ] } ] } ] } ] }
Multiple operationsBalance: 0.000777
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
Balance: 0.000777
Operations:
Transfer 0.000000 to sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1).open_some()
to sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1).open_some()| CToken | Minter | MintAmount |
| KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | ExpScale | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | False |
Generated Michelson
(Left (Right (Right (Left (Right 777)))))
{ "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "int": "777" } ] } ] } ] } ] } ] }
Transaction
Follow-up-transfer: KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1%mintAllowed (sp.record(cToken = s...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC] at time [timestamp(0)] to KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1
| CToken | Minter | MintAmount |
| KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
Balance: 0.000000
Operations:
Storage:
| Borrow_allowed | Mint_allowed | Redeem_allowed | Repay_borrow_allowed |
| True | True | True | True |
Generated Michelson
(Left (Left (Right (Right (Right (Pair "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC" (Pair "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" 777)))))))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC" },
{ "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "int": "777" } ] }
]
}
]
}
]
}
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC" },
{ "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "int": "777" } ] }
]
}
]
}
]
}
]
}
]
}
]
}
second mint
Multiple operationsBalance: 0.000777
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
Balance: 0.000777
Operations:
Transfer 0.000000 to sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF).open_some()
to sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF).open_some()| Borrows | Cash | Cb | Reserves |
| sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some() |
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | ExpScale | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Left (Left (Left (Right Unit)))))
{ "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Unit" } ] } ] } ] } ] } ] }
Transaction
Follow-up-transfer: KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF%getBorrowRate (sp.record(borrows = ...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC] at time [timestamp(0)] to KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF
| Borrows | Cash | Cb | Reserves |
| sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some() |
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some()
to sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some()Storage:
| BorrowRate | SupplyRate |
Generated Michelson
(Left (Left (Pair (Pair 0 777) (Pair "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%doAccrueInterest" 0))))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "777" } ] },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%doAccrueInterest" }, { "int": "0" } ] }
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "777" } ] },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%doAccrueInterest" }, { "int": "0" } ] }
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%doAccrueInterest (840000000000) (Follow-up-transfer: KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF%getBorrowRate (sp.record(borrows = ...))Balance: 0.000777
()Transaction [OK] by [KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF] at time [timestamp(0)] to KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
Balance: 0.000777
Operations:
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | ExpScale | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Left (Right (Right (Left 840000000000)))))
{
"prim": "Left",
"args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "840000000000" } ] } ] } ] } ] } ]
}
"prim": "Left",
"args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "840000000000" } ] } ] } ] } ] } ]
}
Multiple operationsBalance: 0.000797
()
Transaction
Transaction [OK] by [tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5] at time [timestamp(0)] to KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
Balance: 0.000797
Operations:
Transfer 0.000000 to sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1).open_some()
to sp.contract(sp.TRecord(cToken = sp.TAddress, mintAmount = sp.TNat, minter = sp.TAddress).layout(("cToken", ("minter", "mintAmount"))), KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1).open_some()| CToken | Minter | MintAmount |
| KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC | tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | ExpScale | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | False |
Generated Michelson
(Left (Right (Right (Left (Right 20)))))
{ "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "int": "20" } ] } ] } ] } ] } ] }
Transaction
Follow-up-transfer: KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1%mintAllowed (sp.record(cToken = s...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC] at time [timestamp(0)] to KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1
| CToken | Minter | MintAmount |
| KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC | tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
Balance: 0.000000
Operations:
Storage:
| Borrow_allowed | Mint_allowed | Redeem_allowed | Repay_borrow_allowed |
| True | True | True | True |
Generated Michelson
(Left (Left (Right (Right (Right (Pair "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC" (Pair "tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5" 20)))))))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC" },
{ "prim": "Pair", "args": [ { "string": "tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5" }, { "int": "20" } ] }
]
}
]
}
]
}
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC" },
{ "prim": "Pair", "args": [ { "string": "tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5" }, { "int": "20" } ] }
]
}
]
}
]
}
]
}
]
}
]
}
getCash
Multiple operations
Balance: 0.000797
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
| sp.contract(sp.TNat, KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some() |
Balance: 0.000797
Operations:
Transfer 0.000000 to sp.contract(sp.TNat, KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()
to sp.contract(sp.TNat, KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | ExpScale | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | False |
Generated Michelson
(Left (Right (Left (Right (Right (Left (Pair Unit "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%targetNat")))))))
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Left", "args": [ { "prim": "Pair", "args": [ { "prim": "Unit" }, { "string": "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%targetNat" } ] } ] } ]
}
]
}
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Left", "args": [ { "prim": "Pair", "args": [ { "prim": "Unit" }, { "string": "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%targetNat" } ] } ] } ]
}
]
}
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%targetNat (797)Balance: 0.000000
()Transaction [OK] by [KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC] at time [timestamp(0)] to KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
Balance: 0.000000
Operations:
Storage:
| Last |
Generated Michelson
(Right 797)
{ "prim": "Right", "args": [ { "int": "797" } ] }
getTotalSupply
Multiple operations
Balance: 0.000797
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
| sp.contract(sp.TNat, KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some() |
Balance: 0.000797
Operations:
Transfer 0.000000 to sp.contract(sp.TNat, KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()
to sp.contract(sp.TNat, KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | ExpScale | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | False |
Generated Michelson
(Left (Right (Left (Right (Right (Right (Pair Unit "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%targetNat")))))))
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Pair", "args": [ { "prim": "Unit" }, { "string": "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%targetNat" } ] } ] } ]
}
]
}
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Pair", "args": [ { "prim": "Unit" }, { "string": "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%targetNat" } ] } ] } ]
}
]
}
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%targetNat (797)Balance: 0.000000
()Transaction [OK] by [KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC] at time [timestamp(0)] to KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
Balance: 0.000000
Operations:
Storage:
| Last |
Generated Michelson
(Right 797)
{ "prim": "Right", "args": [ { "int": "797" } ] }
call transferOut inside borrow entry point
Multiple operationsBalance: 0.000797
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
Balance: 0.000797
Operations:
Transfer 0.000000 to sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF).open_some()
to sp.contract(sp.TRecord(borrows = sp.TNat, cash = sp.TNat, cb = sp.TContract(sp.TNat), reserves = sp.TNat).layout((("borrows", "cash"), ("cb", "reserves"))), KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF).open_some()| Borrows | Cash | Cb | Reserves |
| sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some() |
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | ExpScale | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Left (Left (Left (Right Unit)))))
{ "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Unit" } ] } ] } ] } ] } ] }
Transaction
Follow-up-transfer: KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF%getBorrowRate (sp.record(borrows = ...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC] at time [timestamp(0)] to KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF
| Borrows | Cash | Cb | Reserves |
| sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some() |
Balance: 0.000000
Operations:
Transfer 0.000000 to sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some()
to sp.contract(sp.TNat, KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC).open_some()Storage:
| BorrowRate | SupplyRate |
Generated Michelson
(Left (Left (Pair (Pair 0 797) (Pair "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%doAccrueInterest" 0))))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "797" } ] },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%doAccrueInterest" }, { "int": "0" } ] }
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "prim": "Pair", "args": [ { "int": "0" }, { "int": "797" } ] },
{ "prim": "Pair", "args": [ { "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%doAccrueInterest" }, { "int": "0" } ] }
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC%doAccrueInterest (840000000000) (Follow-up-transfer: KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF%getBorrowRate (sp.record(borrows = ...))Balance: 0.000797
()Transaction [OK] by [KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF] at time [timestamp(0)] to KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
Balance: 0.000797
Operations:
Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | ExpScale | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | True |
Generated Michelson
(Left (Left (Right (Right (Left 840000000000)))))
{
"prim": "Left",
"args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "840000000000" } ] } ] } ] } ] } ]
}
"prim": "Left",
"args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "int": "840000000000" } ] } ] } ] } ] } ]
}
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1
KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
Balance: 0.000000
Operations:
Storage:
| Borrow_allowed | Mint_allowed | Redeem_allowed | Repay_borrow_allowed |
| True | True | True | True |
Generated Michelson
(Right (Right (Right (Right (Right "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC")))))
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC" } ] } ] } ] } ]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC" } ] } ] } ] } ]
}
]
}
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1
tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi
Balance: 0.000000
Operations:
Storage:
| Borrow_allowed | Mint_allowed | Redeem_allowed | Repay_borrow_allowed |
| True | True | True | True |
Generated Michelson
(Right (Right (Right (Right (Left "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi")))))
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" } ] } ] } ] } ]
}
]
}
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" } ] } ] } ] } ]
}
]
}
Multiple operationsBalance: 0.000797
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
Balance: 0.000797
Operations:
Transfer 0.000000 to sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1).open_some()
to sp.contract(sp.TRecord(borrowAmount = sp.TNat, borrower = sp.TAddress, cToken = sp.TAddress).layout(("cToken", ("borrower", "borrowAmount"))), KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1).open_some()| CToken | Borrower | BorrowAmount |
| KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
Transfer 0.000777 to sp.contract(sp.TUnit, tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi).open_some()
to sp.contract(sp.TUnit, tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi).open_some()Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | ExpScale | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | False |
Generated Michelson
(Left (Left (Right (Left (Left 777)))))
{ "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "int": "777" } ] } ] } ] } ] } ] }
Transaction
Follow-up-transfer: KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1%borrowAllowed (sp.record(cToken = s...)
Balance: 0.000000
()Transaction [OK] by [KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC] at time [timestamp(0)] to KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1
| CToken | Borrower | BorrowAmount |
| KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC | tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi |
Balance: 0.000000
Operations:
Storage:
| Borrow_allowed | Mint_allowed | Redeem_allowed | Repay_borrow_allowed |
| True | True | True | True |
Generated Michelson
(Left (Left (Left (Right (Left (Pair "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC" (Pair "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" 777)))))))
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC" },
{ "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "int": "777" } ] }
]
}
]
}
]
}
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Pair",
"args": [
{ "string": "KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC" },
{ "prim": "Pair", "args": [ { "string": "tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi" }, { "int": "777" } ] }
]
}
]
}
]
}
]
}
]
}
]
}
getCash after transferOut call
Multiple operations
Balance: 0.000020
()
Transaction
Transaction [OK] by [tz1WxrQuZ4CK1MBUa2GqUWK1yJ4J6EtG1Gwi] at time [timestamp(0)] to KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
| sp.contract(sp.TNat, KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some() |
Balance: 0.000020
Operations:
Transfer 0.000000 to sp.contract(sp.TNat, KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()
to sp.contract(sp.TNat, KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H).open_some()Storage:
| AccrualBlockNumber | AccrualIntPeriodRelevance | ActiveOperations | Administrator | Balances | BorrowIndex | BorrowRateMaxMantissa | BorrowRatePerBlock | Comptroller | ExpScale | HalfExpScale | InitialExchangeRateMantissa | InterestRateModel | IsAccrualInterestValid | PendingAdministrator | ReserveFactorMantissa | ReserveFactorMaxMantissa | SupplyRatePerBlock | TotalBorrows | TotalReserves | TotalSupply | ||||||||||||||||||||||||
| tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5 |
| KT1TezoooozzSmartPyzzSTATiCzzzwwBFA1 | KT1Tezooo1zzSmartPyzzSTATiCzzzyfC8eF | False |
Generated Michelson
(Left (Right (Left (Right (Right (Left (Pair Unit "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%targetNat")))))))
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Left", "args": [ { "prim": "Pair", "args": [ { "prim": "Unit" }, { "string": "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%targetNat" } ] } ] } ]
}
]
}
]
}
]
}
]
}
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Left",
"args": [
{
"prim": "Right",
"args": [
{
"prim": "Right",
"args": [ { "prim": "Left", "args": [ { "prim": "Pair", "args": [ { "prim": "Unit" }, { "string": "KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%targetNat" } ] } ] } ]
}
]
}
]
}
]
}
]
}
Transaction
Follow-up-transfer: KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H%targetNat (20)Balance: 0.000000
()Transaction [OK] by [KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC] at time [timestamp(0)] to KT1Tezooo2zzSmartPyzzSTATiCzzzwqqQ4H
Balance: 0.000000
Operations:
Storage:
| Last |
Generated Michelson
(Right 20)
{ "prim": "Right", "args": [ { "int": "20" } ] }
Try sweepMutez
Reverted transactionBalance: 0.000020
()
Transaction
Transaction [KO] by [tz1UyQDepgtUBnWjyzzonqeDwaiWoQzRKSP5] at time [timestamp(0)] to KT1Tezooo3zzSmartPyzzSTATiCzzzseJjWC
False
Balance: 0.000020
Error:
Wrong condition:
Message: 'CT_SWEEP_XTZ'
Message: 'CT_SWEEP_XTZ'
Generated Michelson
(Right (Right (Right (Left (Left False)))))
{
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "False" } ] } ] } ] } ] } ]
}
"prim": "Right",
"args": [ { "prim": "Right", "args": [ { "prim": "Right", "args": [ { "prim": "Left", "args": [ { "prim": "Left", "args": [ { "prim": "False" } ] } ] } ] } ] } ]
}